9.1 Integrand simplification rules.nb

(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    503777,       9697]
NotebookOptionsPosition[    489451,       9348]
NotebookOutlinePosition[    490973,       9398]
CellTagsIndexPosition[    490930,       9395]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[Cell[TextData[StyleBox["Integrand Simplification Rules",
  FontFamily->"Arial"]], "None"]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.4965234353062396`*^9, {3.5193214825316973`*^9, 3.5193214852617016`*^9}, {
   3.523316399894187*^9, 3.5233164032341914`*^9}, {3.523318350558202*^9, 
   3.5233183516382036`*^9}, {3.536542725780803*^9, 3.536542725780803*^9}, {
   3.5367764878952584`*^9, 3.5367764886452594`*^9}, {3.544322815209103*^9, 
   3.5443228192963104`*^9}, {3.5450662624913826`*^9, 3.545066292141424*^9}, {
   3.545066402271579*^9, 3.5450664054415827`*^9}, {3.5450834884295015`*^9, 
   3.5450834895895033`*^9}, {3.5454961263762493`*^9, 
   3.5454961321462574`*^9}, {3.5454963863166127`*^9, 
   3.5454964580867133`*^9}, {3.545497046127537*^9, 3.545497046127537*^9}, {
   3.5454971130676303`*^9, 3.545497136257663*^9}, 3.545610399977621*^9, {
   3.546040778592962*^9, 3.546040778592962*^9}, {3.5461052065706367`*^9, 
   3.5461052249474688`*^9}, {3.546191339879622*^9, 3.5461913430596266`*^9}, {
   3.5462141824067917`*^9, 3.5462142145768366`*^9}, {3.5462145455473003`*^9, 
   3.5462145601073203`*^9}, {3.5463149785974817`*^9, 
   3.5463149794195285`*^9}, {3.5488738437683954`*^9, 
   3.5488738699084315`*^9}, {3.5488890647645535`*^9, 3.548889080804576*^9}, {
   3.5505951583099127`*^9, 3.5505951620351257`*^9}, {3.5505952613798075`*^9, 
   3.5505952630869055`*^9}, {3.5535321133435373`*^9, 
   3.5535321173537664`*^9}, {3.5536175341411576`*^9, 
   3.5536175352411594`*^9}, {3.55396599671187*^9, 3.55396599862998*^9}, {
   3.560190530310161*^9, 3.560190628512334*^9}, {3.5602162723838596`*^9, 
   3.5602162793138695`*^9}, {3.5606249190913877`*^9, 3.560624924321395*^9}, {
   3.5617663419995623`*^9, 3.5617663705796027`*^9}, {3.5617666456099873`*^9, 
   3.561766656350003*^9}, {3.562107691486154*^9, 3.5621077390350375`*^9}, {
   3.5621080165751247`*^9, 3.5621080185719285`*^9}, {3.5621081511877613`*^9, 
   3.5621081511877613`*^9}, {3.5633407304210925`*^9, 3.563340730891093*^9}, {
   3.567630514627001*^9, 3.567630517123005*^9}, {3.5687565582479997`*^9, 
   3.5687565700380163`*^9}, {3.5713337507132535`*^9, 
   3.5713337630632706`*^9}, {3.5761243030274553`*^9, 3.576124317087475*^9}, {
   3.597888364985247*^9, 3.5978883828852725`*^9}},
 TextAlignment->Center,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{"u", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"v", "+", "w"}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
     RowBox[{"v", "\[Equal]", "0"}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, {3.5233155055329347`*^9, 3.523315506402936*^9}, {
   3.523318726949605*^9, 3.5233187276796064`*^9}, {3.523920400879534*^9, 
   3.5239204094439487`*^9}, 3.52392096260852*^9, 3.523921038171853*^9, {
   3.52919645779749*^9, 3.5291965352204256`*^9}, {3.5291966892518964`*^9, 
   3.5291967073791285`*^9}, {3.536777803163103*^9, 3.5367778079531097`*^9}, {
   3.536797167878858*^9, 3.5367971680788584`*^9}, {3.53680053244489*^9, 
   3.5368005326448903`*^9}, {3.5368592877760773`*^9, 3.536859288134878*^9}, {
   3.536859514740876*^9, 3.536859516472479*^9}, {3.5713700760516787`*^9, 
   3.5713700901916986`*^9}, 3.637097090584026*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["x:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{"u", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"v", "+", "w"}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{"v", "\[Equal]", "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.5192504337891226`*^9, 3.5192504707812386`*^9}, 3.5192506717957726`*^9, {
   3.519250720795459*^9, 3.5192507409818945`*^9}, 3.519258420209427*^9, 
   3.519258489779525*^9, {3.519320786305674*^9, 3.519320803294104*^9}, {
   3.519329422708468*^9, 3.5193294257984724`*^9}, 3.5193294706485353`*^9, {
   3.5193302883925123`*^9, 3.519330307237345*^9}, {3.5193303440378103`*^9, 
   3.5193303650666466`*^9}, 3.5193341918281684`*^9, {3.5193346196121197`*^9, 
   3.519334632840943*^9}, {3.519341922663512*^9, 3.5193419232095127`*^9}, 
   3.5193423494490614`*^9, {3.5193456600396833`*^9, 3.519345660273684*^9}, 
   3.519410696547495*^9, {3.519793559756592*^9, 3.5197935600217924`*^9}, {
   3.5210541942272606`*^9, 3.5210542323693275`*^9}, {3.521054705798959*^9, 
   3.5210547345342093`*^9}, {3.521055431683834*^9, 3.5210554455522585`*^9}, {
   3.5210554827427235`*^9, 3.521055535954417*^9}, {3.5210583779710083`*^9, 
   3.5210583808258133`*^9}, {3.521059537848645*^9, 3.5210595406722507`*^9}, {
   3.521073278133219*^9, 3.521073278289219*^9}, {3.5210733530601506`*^9, 
   3.5210733594717617`*^9}, {3.5210749590361714`*^9, 3.521074959285772*^9}, {
   3.5210750684603634`*^9, 3.521075082640788*^9}, {3.5211302494180717`*^9, 
   3.5211302530480766`*^9}, 3.5211308367808948`*^9, {3.5211323417405057`*^9, 
   3.521132341920506*^9}, {3.5211329193813143`*^9, 3.521132920581316*^9}, {
   3.5211334086319995`*^9, 3.5211334145920076`*^9}, 3.5211339031426916`*^9, {
   3.5211339800327997`*^9, 3.521133999102826*^9}, {3.5211340957429614`*^9, 
   3.521134096002962*^9}, {3.521135314144667*^9, 3.521135318594673*^9}, {
   3.521135364874738*^9, 3.521135364874738*^9}, {3.5213438858413525`*^9, 
   3.5213438941113644`*^9}, {3.5213439302614145`*^9, 
   3.5213439302614145`*^9}, {3.521343988081496*^9, 3.521344018781539*^9}, {
   3.5213440660716047`*^9, 3.5213440660716047`*^9}, {3.5213444058120804`*^9, 
   3.5213444106820874`*^9}, {3.5214684168581123`*^9, 
   3.5214684170765123`*^9}, {3.52149478528579*^9, 3.52149481372464*^9}, {
   3.521499215591608*^9, 3.52149921649641*^9}, {3.521999242783615*^9, 
   3.5219992516436276`*^9}, {3.5219993142037153`*^9, 
   3.5219993144637156`*^9}, {3.5220108123552885`*^9, 
   3.5220108400578732`*^9}, {3.5220135333009176`*^9, 
   3.5220135334289255`*^9}, {3.523319008544857*^9, 3.523319008544857*^9}, {
   3.5269414178829765`*^9, 3.5269414184409776`*^9}, {3.52694152202516*^9, 
   3.526941546548403*^9}, {3.5269418749401793`*^9, 3.5269418751897798`*^9}, {
   3.52694417640742*^9, 3.5269441793714256`*^9}, 3.526944249665149*^9, 
   3.526944496863183*^9, {3.529188040720413*^9, 3.5291880409504137`*^9}, 
   3.529195574227538*^9, 3.5291958095539513`*^9, {3.5713325155715246`*^9, 
   3.5713325471315684`*^9}, 3.571333092022331*^9, 3.571370092951702*^9, {
   3.5713701351917615`*^9, 3.571370135451762*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic simplification", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495923078768035*^9, {3.495923273118307*^9, 
   3.4959232939383364`*^9}, 3.4971601701650543`*^9, {3.52694151090234*^9, 
   3.5269415144747467`*^9}}],

Cell["\<\
Note: Many rules assume coefficients are not unrecognized zeros.\
\>", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495923078768035*^9, {3.495923273118307*^9, 
   3.4959232939383364`*^9}, 3.4971601701650543`*^9, {3.52694151090234*^9, 
   3.5269415144747467`*^9}, {3.571332696021777*^9, 3.5713327465518475`*^9}}],

Cell["\<\
Note: Unfortunately this rule is commented out because it is too inefficient.\
\>", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495923078768035*^9, {3.495923273118307*^9, 
   3.4959232939383364`*^9}, 3.4971601701650543`*^9, {3.52694151090234*^9, 
   3.5269415144747467`*^9}, {3.571332696021777*^9, 3.5713327465518475`*^9}, {
   3.57137010510172*^9, 3.571370128921753*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"v", "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.495391630941485*^9, 3.4953916682515373`*^9}, 
   3.495398892616804*^9, {3.495922938707839*^9, 3.4959229711678843`*^9}, {
   3.4959231003080654`*^9, 3.4959231175680895`*^9}, {3.4971602295387588`*^9, 
   3.4971602339691668`*^9}, {3.521344047531579*^9, 3.5213440556315904`*^9}, {
   3.522011204087694*^9, 3.522011204087694*^9}, {3.5269414956611137`*^9, 
   3.526941503601527*^9}, {3.571332606171651*^9, 3.5713326066016517`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{"u", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"v", "+", "w"}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{"u", " ", 
       SuperscriptBox["w", "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.4953915848214207`*^9, 
   3.495391696001576*^9, 3.4959228185976706`*^9, 3.495922913057803*^9, 
   3.495923018917951*^9, {3.4959235009586263`*^9, 3.4959235044486313`*^9}, 
   3.495923597958762*^9, {3.4967267852794013`*^9, 3.496726787416605*^9}, {
   3.497160187917886*^9, 3.497160191381092*^9}, {3.5220108283382025`*^9, 
   3.5220108303953204`*^9}, {3.526941475037877*^9, 3.526941486223097*^9}, {
   3.526944260959569*^9, 3.526944268385182*^9}, {3.5269445071436014`*^9, 
   3.5269445089688044`*^9}, {3.5291955204386435`*^9, 3.529195523761449*^9}, {
   3.5291956709477077`*^9, 3.5291956822265277`*^9}, {3.571332617291667*^9, 
   3.5713326229416747`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"u_.", "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"v_", "+", "w_"}], ")"}], "^", "p_."}]}], ",", "x_Symbol"}], 
    "]"}], " ", ":=", "\n", "  ", 
   RowBox[{
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{"u", "*", 
       RowBox[{"w", "^", "p"}]}], ",", "x"}], "]"}], " ", "/;", "\n", 
    RowBox[{
     RowBox[{"FreeQ", "[", 
      RowBox[{"p", ",", "x"}], "]"}], " ", "&&", " ", 
     RowBox[{"EqQ", "[", 
      RowBox[{"v", ",", "0"}], "]"}]}]}]}], " ", "*)"}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4959225619973116`*^9, {3.4959230364279757`*^9, 3.4959230376679773`*^9}, 
   3.495923494298617*^9, {3.495923555498702*^9, 3.4959235563087034`*^9}, 
   3.4967267756697845`*^9, {3.49672681861666*^9, 3.4967268308626814`*^9}, {
   3.497159195377345*^9, 3.49715920372336*^9}, {3.4971596430245285`*^9, 
   3.4971596546621494`*^9}, {3.4971597187782617`*^9, 
   3.4971597300570817`*^9}, {3.521344096001647*^9, 3.5213440979116497`*^9}, {
   3.5220109584456444`*^9, 3.522010968041193*^9}, {3.5220112082859344`*^9, 
   3.5220112097790203`*^9}, {3.5269414337914047`*^9, 3.526941437753812*^9}, {
   3.526941573037249*^9, 3.526941593348485*^9}, {3.526944205813472*^9, 
   3.5269442402583323`*^9}, {3.526944313828062*^9, 3.5269443298336897`*^9}, {
   3.5269443963834066`*^9, 3.5269444040430202`*^9}, {3.52694452906164*^9, 
   3.52694458024533*^9}, {3.5269446772462997`*^9, 3.526944689695122*^9}, 
   3.526944935286353*^9, 3.528997186977697*^9, {3.5291955351026692`*^9, 
   3.529195553916302*^9}, {3.529195698029355*^9, 3.529195721179796*^9}, {
   3.5291957589786625`*^9, 3.529195776232293*^9}, {3.571332557321583*^9, 
   3.571332593271633*^9}, {3.571332652971717*^9, 3.5713326657317343`*^9}, {
   3.5713473700813494`*^9, 3.5713473736013546`*^9}, 3.7061417418484607`*^9, {
   3.7154739019642315`*^9, 3.715473902217246*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{"u", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox["x", "n"]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{"a", "\[Equal]", "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.5192504337891226`*^9, 3.5192504707812386`*^9}, 3.5192506717957726`*^9, {
   3.519250720795459*^9, 3.5192507409818945`*^9}, 3.519258420209427*^9, 
   3.519258489779525*^9, {3.519320786305674*^9, 3.519320803294104*^9}, {
   3.519329422708468*^9, 3.5193294257984724`*^9}, 3.5193294706485353`*^9, {
   3.5193302883925123`*^9, 3.519330307237345*^9}, {3.5193303440378103`*^9, 
   3.5193303650666466`*^9}, 3.5193341918281684`*^9, {3.5193346196121197`*^9, 
   3.519334632840943*^9}, {3.519341922663512*^9, 3.5193419232095127`*^9}, 
   3.5193423494490614`*^9, {3.5193456600396833`*^9, 3.519345660273684*^9}, 
   3.519410696547495*^9, {3.519793559756592*^9, 3.5197935600217924`*^9}, {
   3.5210541942272606`*^9, 3.5210542323693275`*^9}, {3.521054705798959*^9, 
   3.5210547345342093`*^9}, {3.521055431683834*^9, 3.5210554455522585`*^9}, {
   3.5210554827427235`*^9, 3.521055535954417*^9}, {3.5210583779710083`*^9, 
   3.5210583808258133`*^9}, {3.521059537848645*^9, 3.5210595406722507`*^9}, {
   3.521073278133219*^9, 3.521073278289219*^9}, {3.5210733530601506`*^9, 
   3.5210733594717617`*^9}, {3.5210749590361714`*^9, 3.521074959285772*^9}, {
   3.5210750684603634`*^9, 3.521075082640788*^9}, {3.5211302494180717`*^9, 
   3.5211302530480766`*^9}, 3.5211308367808948`*^9, {3.5211323417405057`*^9, 
   3.521132341920506*^9}, {3.5211329193813143`*^9, 3.521132920581316*^9}, {
   3.5211334086319995`*^9, 3.5211334145920076`*^9}, 3.5211339031426916`*^9, {
   3.5211339800327997`*^9, 3.521133999102826*^9}, {3.5211340957429614`*^9, 
   3.521134096002962*^9}, {3.521135314144667*^9, 3.521135318594673*^9}, {
   3.521135364874738*^9, 3.521135364874738*^9}, {3.5213438858413525`*^9, 
   3.5213438941113644`*^9}, {3.5213439302614145`*^9, 
   3.5213439302614145`*^9}, {3.521343988081496*^9, 3.521344018781539*^9}, {
   3.5213440660716047`*^9, 3.5213440660716047`*^9}, {3.5213444058120804`*^9, 
   3.5213444106820874`*^9}, {3.5214684168581123`*^9, 
   3.5214684170765123`*^9}, {3.52149478528579*^9, 3.52149481372464*^9}, {
   3.521499215591608*^9, 3.52149921649641*^9}, {3.521999242783615*^9, 
   3.5219992516436276`*^9}, {3.5219993142037153`*^9, 
   3.5219993144637156`*^9}, {3.5220108123552885`*^9, 
   3.5220108400578732`*^9}, {3.5220135333009176`*^9, 
   3.5220135334289255`*^9}, {3.523319008544857*^9, 3.523319008544857*^9}, {
   3.5269414178829765`*^9, 3.5269414184409776`*^9}, {3.52694152202516*^9, 
   3.526941546548403*^9}, {3.5269418749401793`*^9, 3.5269418751897798`*^9}, {
   3.52694417640742*^9, 3.5269441793714256`*^9}, 3.526944249665149*^9, 
   3.526944496863183*^9, {3.529188040720413*^9, 3.5291880409504137`*^9}, 
   3.529195574227538*^9, 3.5291958095539513`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic simplification", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495923078768035*^9, {3.495923273118307*^9, 
   3.4959232939383364`*^9}, 3.4971601701650543`*^9, {3.52694151090234*^9, 
   3.5269415144747467`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"a", "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.495391630941485*^9, 3.4953916682515373`*^9}, 
   3.495398892616804*^9, {3.495922938707839*^9, 3.4959229711678843`*^9}, {
   3.4959231003080654`*^9, 3.4959231175680895`*^9}, {3.4971602295387588`*^9, 
   3.4971602339691668`*^9}, {3.521344047531579*^9, 3.5213440556315904`*^9}, {
   3.522011204087694*^9, 3.522011204087694*^9}, {3.5269414956611137`*^9, 
   3.526941503601527*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{"u", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox["x", "n"]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{"u", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"b", " ", 
          SuperscriptBox["x", "n"]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.4953915848214207`*^9, 
   3.495391696001576*^9, 3.4959228185976706`*^9, 3.495922913057803*^9, 
   3.495923018917951*^9, {3.4959235009586263`*^9, 3.4959235044486313`*^9}, 
   3.495923597958762*^9, {3.4967267852794013`*^9, 3.496726787416605*^9}, {
   3.497160187917886*^9, 3.497160191381092*^9}, {3.5220108283382025`*^9, 
   3.5220108303953204`*^9}, {3.526941475037877*^9, 3.526941486223097*^9}, {
   3.526944260959569*^9, 3.526944268385182*^9}, {3.5269445071436014`*^9, 
   3.5269445089688044`*^9}, {3.5291955204386435`*^9, 3.529195523761449*^9}, {
   3.5291956709477077`*^9, 3.5291956822265277`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"u_.", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"x_", "^", "n_."}]}]}], ")"}], "^", "p_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"u", "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "*", 
         RowBox[{"x", "^", "n"}]}], ")"}], "^", "p"}]}], ",", "x"}], "]"}], 
   " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "n", ",", "p"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"a", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4959225619973116`*^9, {3.4959230364279757`*^9, 3.4959230376679773`*^9}, 
   3.495923494298617*^9, {3.495923555498702*^9, 3.4959235563087034`*^9}, 
   3.4967267756697845`*^9, {3.49672681861666*^9, 3.4967268308626814`*^9}, {
   3.497159195377345*^9, 3.49715920372336*^9}, {3.4971596430245285`*^9, 
   3.4971596546621494`*^9}, {3.4971597187782617`*^9, 
   3.4971597300570817`*^9}, {3.521344096001647*^9, 3.5213440979116497`*^9}, {
   3.5220109584456444`*^9, 3.522010968041193*^9}, {3.5220112082859344`*^9, 
   3.5220112097790203`*^9}, {3.5269414337914047`*^9, 3.526941437753812*^9}, {
   3.526941573037249*^9, 3.526941593348485*^9}, {3.526944205813472*^9, 
   3.5269442402583323`*^9}, {3.526944313828062*^9, 3.5269443298336897`*^9}, {
   3.5269443963834066`*^9, 3.5269444040430202`*^9}, {3.52694452906164*^9, 
   3.52694458024533*^9}, {3.5269446772462997`*^9, 3.526944689695122*^9}, 
   3.526944935286353*^9, 3.528997186977697*^9, {3.5291955351026692`*^9, 
   3.529195553916302*^9}, {3.529195698029355*^9, 3.529195721179796*^9}, {
   3.5291957589786625`*^9, 3.529195776232293*^9}, 3.7061417418684607`*^9, {
   3.71547390806258*^9, 3.7154739083965993`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{"u", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox["x", "n"]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{"b", "\[Equal]", "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.5192504337891226`*^9, 3.5192504707812386`*^9}, 3.5192506717957726`*^9, {
   3.519250720795459*^9, 3.5192507409818945`*^9}, 3.519258420209427*^9, 
   3.519258489779525*^9, {3.519320786305674*^9, 3.519320803294104*^9}, {
   3.519329422708468*^9, 3.5193294257984724`*^9}, 3.5193294706485353`*^9, {
   3.5193302883925123`*^9, 3.519330307237345*^9}, {3.5193303440378103`*^9, 
   3.5193303650666466`*^9}, 3.5193341918281684`*^9, {3.5193346196121197`*^9, 
   3.519334632840943*^9}, {3.519341922663512*^9, 3.5193419232095127`*^9}, 
   3.5193423494490614`*^9, {3.5193456600396833`*^9, 3.519345660273684*^9}, 
   3.519410696547495*^9, {3.519793559756592*^9, 3.5197935600217924`*^9}, {
   3.5210541942272606`*^9, 3.5210542323693275`*^9}, {3.521054705798959*^9, 
   3.5210547345342093`*^9}, {3.521055431683834*^9, 3.5210554455522585`*^9}, {
   3.5210554827427235`*^9, 3.521055535954417*^9}, {3.5210583779710083`*^9, 
   3.5210583808258133`*^9}, {3.521059537848645*^9, 3.5210595406722507`*^9}, {
   3.521073278133219*^9, 3.521073278289219*^9}, {3.5210733530601506`*^9, 
   3.5210733594717617`*^9}, {3.5210749590361714`*^9, 3.521074959285772*^9}, {
   3.5210750684603634`*^9, 3.521075082640788*^9}, {3.5211302494180717`*^9, 
   3.5211302530480766`*^9}, 3.5211308367808948`*^9, {3.5211323417405057`*^9, 
   3.521132341920506*^9}, {3.5211329193813143`*^9, 3.521132920581316*^9}, {
   3.5211334086319995`*^9, 3.5211334145920076`*^9}, 3.5211339031426916`*^9, {
   3.5211339800327997`*^9, 3.521133999102826*^9}, {3.5211340957429614`*^9, 
   3.521134096002962*^9}, {3.521135314144667*^9, 3.521135318594673*^9}, {
   3.521135364874738*^9, 3.521135364874738*^9}, {3.5213438858413525`*^9, 
   3.5213438941113644`*^9}, {3.5213439302614145`*^9, 
   3.5213439302614145`*^9}, {3.521343988081496*^9, 3.521344018781539*^9}, {
   3.5213440660716047`*^9, 3.5213440660716047`*^9}, {3.5213444058120804`*^9, 
   3.5213444106820874`*^9}, {3.5214684168581123`*^9, 
   3.5214684170765123`*^9}, {3.52149478528579*^9, 3.52149481372464*^9}, {
   3.521499215591608*^9, 3.52149921649641*^9}, {3.521999242783615*^9, 
   3.5219992516436276`*^9}, {3.5219993142037153`*^9, 
   3.5219993144637156`*^9}, {3.5220108123552885`*^9, 
   3.5220108400578732`*^9}, {3.5220135333009176`*^9, 
   3.5220135334289255`*^9}, {3.523319008544857*^9, 3.523319008544857*^9}, {
   3.5269414178829765`*^9, 3.5269414184409776`*^9}, {3.52694152202516*^9, 
   3.526941546548403*^9}, {3.5269418749401793`*^9, 3.5269418751897798`*^9}, {
   3.52694417640742*^9, 3.5269441793714256`*^9}, 3.526944249665149*^9, 
   3.526944496863183*^9, {3.529188040720413*^9, 3.5291880409504137`*^9}, 
   3.529195574227538*^9, 3.5291958095539513`*^9, {3.529196718096347*^9, 
   3.529196724320758*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic simplification", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495923078768035*^9, {3.495923273118307*^9, 
   3.4959232939383364`*^9}, 3.4971601701650543`*^9, {3.52694151090234*^9, 
   3.5269415144747467`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"b", "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.495391630941485*^9, 3.4953916682515373`*^9}, 
   3.495398892616804*^9, {3.495922938707839*^9, 3.4959229711678843`*^9}, {
   3.4959231003080654`*^9, 3.4959231175680895`*^9}, {3.4971602295387588`*^9, 
   3.4971602339691668`*^9}, {3.521344047531579*^9, 3.5213440556315904`*^9}, {
   3.522011204087694*^9, 3.522011204087694*^9}, {3.5269414956611137`*^9, 
   3.526941503601527*^9}, {3.529196725818361*^9, 3.529196725818361*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{"u", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox["x", "n"]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{"u", " ", 
       SuperscriptBox["a", "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.4953915848214207`*^9, 
   3.495391696001576*^9, 3.4959228185976706`*^9, 3.495922913057803*^9, 
   3.495923018917951*^9, {3.4959235009586263`*^9, 3.4959235044486313`*^9}, 
   3.495923597958762*^9, {3.4967267852794013`*^9, 3.496726787416605*^9}, {
   3.497160187917886*^9, 3.497160191381092*^9}, {3.5220108283382025`*^9, 
   3.5220108303953204`*^9}, {3.526941475037877*^9, 3.526941486223097*^9}, {
   3.526944260959569*^9, 3.526944268385182*^9}, {3.5269445071436014`*^9, 
   3.5269445089688044`*^9}, {3.5291955204386435`*^9, 3.529195523761449*^9}, {
   3.5291956709477077`*^9, 3.5291956822265277`*^9}, {3.5291967337431746`*^9, 
   3.5291967382047825`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"u_.", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"x_", "^", "n_."}]}]}], ")"}], "^", "p_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"u", "*", 
      RowBox[{"a", "^", "p"}]}], ",", "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "n", ",", "p"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"b", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4959225619973116`*^9, {3.4959230364279757`*^9, 3.4959230376679773`*^9}, 
   3.495923494298617*^9, {3.495923555498702*^9, 3.4959235563087034`*^9}, 
   3.4967267756697845`*^9, {3.49672681861666*^9, 3.4967268308626814`*^9}, {
   3.497159195377345*^9, 3.49715920372336*^9}, {3.4971596430245285`*^9, 
   3.4971596546621494`*^9}, {3.4971597187782617`*^9, 
   3.4971597300570817`*^9}, {3.521344096001647*^9, 3.5213440979116497`*^9}, {
   3.5220109584456444`*^9, 3.522010968041193*^9}, {3.5220112082859344`*^9, 
   3.5220112097790203`*^9}, {3.5269414337914047`*^9, 3.526941437753812*^9}, {
   3.526941573037249*^9, 3.526941593348485*^9}, {3.526944205813472*^9, 
   3.5269442402583323`*^9}, {3.526944313828062*^9, 3.5269443298336897`*^9}, {
   3.5269443963834066`*^9, 3.5269444040430202`*^9}, {3.52694452906164*^9, 
   3.52694458024533*^9}, {3.5269446772462997`*^9, 3.526944689695122*^9}, 
   3.526944935286353*^9, 3.528997186977697*^9, {3.5291955351026692`*^9, 
   3.529195553916302*^9}, {3.529195698029355*^9, 3.529195721179796*^9}, {
   3.5291957589786625`*^9, 3.529195776232293*^9}, {3.5291967483136005`*^9, 
   3.529196789575673*^9}, 3.706141741888461*^9, 3.715473915071981*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{"u", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox["x", "n"]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", 
          RowBox[{"2", " ", "n"}]]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{"a", "\[Equal]", "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.5192504337891226`*^9, 3.5192504707812386`*^9}, 3.5192506717957726`*^9, {
   3.519250720795459*^9, 3.5192507409818945`*^9}, 3.519258420209427*^9, 
   3.519258489779525*^9, {3.519320786305674*^9, 3.519320803294104*^9}, {
   3.519329422708468*^9, 3.5193294257984724`*^9}, 3.5193294706485353`*^9, {
   3.5193302883925123`*^9, 3.519330307237345*^9}, {3.5193303440378103`*^9, 
   3.5193303650666466`*^9}, 3.5193341918281684`*^9, {3.5193346196121197`*^9, 
   3.519334632840943*^9}, {3.519341922663512*^9, 3.5193419232095127`*^9}, 
   3.5193423494490614`*^9, {3.5193456600396833`*^9, 3.519345660273684*^9}, 
   3.519410696547495*^9, {3.519793559756592*^9, 3.5197935600217924`*^9}, {
   3.5210541942272606`*^9, 3.5210542323693275`*^9}, {3.521054705798959*^9, 
   3.5210547345342093`*^9}, {3.521055431683834*^9, 3.5210554455522585`*^9}, {
   3.5210554827427235`*^9, 3.521055535954417*^9}, {3.5210583779710083`*^9, 
   3.5210583808258133`*^9}, {3.521059537848645*^9, 3.5210595406722507`*^9}, {
   3.521073278133219*^9, 3.521073278289219*^9}, {3.5210733530601506`*^9, 
   3.5210733594717617`*^9}, {3.5210749590361714`*^9, 3.521074959285772*^9}, {
   3.5210750684603634`*^9, 3.521075082640788*^9}, {3.5211302494180717`*^9, 
   3.5211302530480766`*^9}, 3.5211308367808948`*^9, {3.5211323417405057`*^9, 
   3.521132341920506*^9}, {3.5211329193813143`*^9, 3.521132920581316*^9}, {
   3.5211334086319995`*^9, 3.5211334145920076`*^9}, 3.5211339031426916`*^9, {
   3.5211339800327997`*^9, 3.521133999102826*^9}, {3.5211340957429614`*^9, 
   3.521134096002962*^9}, {3.521135314144667*^9, 3.521135318594673*^9}, {
   3.521135364874738*^9, 3.521135364874738*^9}, {3.5213438858413525`*^9, 
   3.5213438941113644`*^9}, {3.5213439302614145`*^9, 
   3.5213439302614145`*^9}, {3.521343988081496*^9, 3.521344018781539*^9}, {
   3.5213440660716047`*^9, 3.5213440660716047`*^9}, {3.5213444058120804`*^9, 
   3.5213444106820874`*^9}, {3.5214684168581123`*^9, 
   3.5214684170765123`*^9}, {3.52149478528579*^9, 3.52149481372464*^9}, {
   3.521499215591608*^9, 3.52149921649641*^9}, {3.521999242783615*^9, 
   3.5219992516436276`*^9}, {3.5219993142037153`*^9, 
   3.5219993144637156`*^9}, {3.5220108123552885`*^9, 
   3.5220108400578732`*^9}, {3.5220135333009176`*^9, 
   3.5220135334289255`*^9}, {3.523319008544857*^9, 3.523319008544857*^9}, {
   3.5269414178829765`*^9, 3.5269414184409776`*^9}, {3.52694152202516*^9, 
   3.526941546548403*^9}, {3.5269418749401793`*^9, 3.5269418751897798`*^9}, {
   3.52694417640742*^9, 3.5269441793714256`*^9}, 3.526944249665149*^9, 
   3.526944496863183*^9, {3.529188040720413*^9, 3.5291880409504137`*^9}, 
   3.529195574227538*^9, {3.5291958955257025`*^9, 3.529195896617704*^9}, {
   3.5291965314296193`*^9, 3.5291965316792192`*^9}, {3.571370180071824*^9, 
   3.5713701830218287`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic simplification", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495923078768035*^9, {3.495923273118307*^9, 
   3.4959232939383364`*^9}, 3.4971601701650543`*^9, {3.52694151090234*^9, 
   3.5269415144747467`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"a", "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.495391630941485*^9, 3.4953916682515373`*^9}, 
   3.495398892616804*^9, {3.495922938707839*^9, 3.4959229711678843`*^9}, {
   3.4959231003080654`*^9, 3.4959231175680895`*^9}, {3.4971602295387588`*^9, 
   3.4971602339691668`*^9}, {3.521344047531579*^9, 3.5213440556315904`*^9}, {
   3.522011204087694*^9, 3.522011204087694*^9}, {3.5269414956611137`*^9, 
   3.526941503601527*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{"u", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox["x", "n"]}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", 
        RowBox[{"2", " ", "n"}]]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{"u", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"b", " ", 
           SuperscriptBox["x", "n"]}], "+", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", 
            RowBox[{"2", " ", "n"}]]}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.4953915848214207`*^9, 
   3.495391696001576*^9, 3.4959228185976706`*^9, 3.495922913057803*^9, 
   3.495923018917951*^9, {3.4959235009586263`*^9, 3.4959235044486313`*^9}, 
   3.495923597958762*^9, {3.4967267852794013`*^9, 3.496726787416605*^9}, {
   3.497160187917886*^9, 3.497160191381092*^9}, {3.5220108283382025`*^9, 
   3.5220108303953204`*^9}, {3.526941475037877*^9, 3.526941486223097*^9}, {
   3.526944260959569*^9, 3.526944268385182*^9}, {3.5269445071436014`*^9, 
   3.5269445089688044`*^9}, {3.5291955204386435`*^9, 3.529195523761449*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"u_.", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"x_", "^", "n_."}]}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{"x_", "^", "j_."}]}]}], ")"}], "^", "p_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"u", "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"b", "*", 
          RowBox[{"x", "^", "n"}]}], "+", 
         RowBox[{"c", "*", 
          RowBox[{"x", "^", 
           RowBox[{"(", 
            RowBox[{"2", "*", "n"}], ")"}]}]}]}], ")"}], "^", "p"}]}], ",", 
     "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "n", ",", "p"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"j", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"a", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4959225619973116`*^9, {3.4959230364279757`*^9, 3.4959230376679773`*^9}, 
   3.495923494298617*^9, {3.495923555498702*^9, 3.4959235563087034`*^9}, 
   3.4967267756697845`*^9, {3.49672681861666*^9, 3.4967268308626814`*^9}, {
   3.497159195377345*^9, 3.49715920372336*^9}, {3.4971596430245285`*^9, 
   3.4971596546621494`*^9}, {3.4971597187782617`*^9, 
   3.4971597300570817`*^9}, {3.521344096001647*^9, 3.5213440979116497`*^9}, {
   3.5220109584456444`*^9, 3.522010968041193*^9}, {3.5220112082859344`*^9, 
   3.5220112097790203`*^9}, {3.5269414337914047`*^9, 3.526941437753812*^9}, {
   3.526941573037249*^9, 3.526941593348485*^9}, {3.526944205813472*^9, 
   3.5269442402583323`*^9}, {3.526944313828062*^9, 3.5269443298336897`*^9}, {
   3.5269443963834066`*^9, 3.5269444040430202`*^9}, {3.52694452906164*^9, 
   3.52694458024533*^9}, 3.526944933024349*^9, 3.528997185334603*^9, {
   3.5291955306098614`*^9, 3.52919555845591*^9}, {3.529195591465568*^9, 
   3.529195593181571*^9}, {3.7061417419084606`*^9, 3.7061417419084606`*^9}, {
   3.7154739258986006`*^9, 3.7154739353921432`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["4:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{"u", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox["x", "n"]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", 
          RowBox[{"2", " ", "n"}]]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{"b", "\[Equal]", "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.5192504337891226`*^9, 3.5192504707812386`*^9}, 3.5192506717957726`*^9, {
   3.519250720795459*^9, 3.5192507409818945`*^9}, 3.519258420209427*^9, 
   3.519258489779525*^9, {3.519320786305674*^9, 3.519320803294104*^9}, {
   3.519329422708468*^9, 3.5193294257984724`*^9}, 3.5193294706485353`*^9, {
   3.5193302883925123`*^9, 3.519330307237345*^9}, {3.5193303440378103`*^9, 
   3.5193303650666466`*^9}, 3.5193341918281684`*^9, {3.5193346196121197`*^9, 
   3.519334632840943*^9}, {3.519341922663512*^9, 3.5193419232095127`*^9}, 
   3.5193423494490614`*^9, {3.5193456600396833`*^9, 3.519345660273684*^9}, 
   3.519410696547495*^9, {3.519793559756592*^9, 3.5197935600217924`*^9}, {
   3.5210541942272606`*^9, 3.5210542323693275`*^9}, {3.521054705798959*^9, 
   3.5210547345342093`*^9}, {3.521055431683834*^9, 3.5210554455522585`*^9}, {
   3.5210554827427235`*^9, 3.521055535954417*^9}, {3.5210583779710083`*^9, 
   3.5210583808258133`*^9}, {3.521059537848645*^9, 3.5210595406722507`*^9}, {
   3.521073278133219*^9, 3.521073278289219*^9}, {3.5210733530601506`*^9, 
   3.5210733594717617`*^9}, {3.5210749590361714`*^9, 3.521074959285772*^9}, {
   3.5210750684603634`*^9, 3.521075082640788*^9}, {3.5211302494180717`*^9, 
   3.5211302530480766`*^9}, 3.5211308367808948`*^9, {3.5211323417405057`*^9, 
   3.521132341920506*^9}, {3.5211329193813143`*^9, 3.521132920581316*^9}, {
   3.5211334086319995`*^9, 3.5211334145920076`*^9}, 3.5211339031426916`*^9, {
   3.5211339800327997`*^9, 3.521133999102826*^9}, {3.5211340957429614`*^9, 
   3.521134096002962*^9}, {3.521135314144667*^9, 3.521135318594673*^9}, {
   3.521135364874738*^9, 3.521135364874738*^9}, {3.5213438858413525`*^9, 
   3.5213438941113644`*^9}, {3.5213439302614145`*^9, 
   3.5213439302614145`*^9}, {3.521343988081496*^9, 3.521344018781539*^9}, {
   3.5213440660716047`*^9, 3.5213440660716047`*^9}, {3.5213444058120804`*^9, 
   3.5213444106820874`*^9}, {3.5214684168581123`*^9, 
   3.5214684170765123`*^9}, {3.52149478528579*^9, 3.52149481372464*^9}, {
   3.521499215591608*^9, 3.52149921649641*^9}, {3.521999242783615*^9, 
   3.5219992516436276`*^9}, {3.5219993142037153`*^9, 
   3.5219993144637156`*^9}, {3.5220108123552885`*^9, 
   3.5220108400578732`*^9}, {3.5220135333009176`*^9, 
   3.5220135334289255`*^9}, {3.523319008544857*^9, 3.523319008544857*^9}, {
   3.5269414178829765`*^9, 3.5269414184409776`*^9}, {3.52694152202516*^9, 
   3.526941546548403*^9}, {3.5269418749401793`*^9, 3.5269418751897798`*^9}, {
   3.52694417640742*^9, 3.5269441793714256`*^9}, 3.526944249665149*^9, 
   3.526944496863183*^9, {3.529188040720413*^9, 3.5291880409504137`*^9}, 
   3.529195574227538*^9, {3.5291958955257025`*^9, 3.529195896617704*^9}, {
   3.5291963802965536`*^9, 3.5291963802965536`*^9}, {3.5713701842718306`*^9, 
   3.571370184451831*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic simplification", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495923078768035*^9, {3.495923273118307*^9, 
   3.4959232939383364`*^9}, 3.4971601701650543`*^9, {3.52694151090234*^9, 
   3.5269415144747467`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"b", "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.495391630941485*^9, 3.4953916682515373`*^9}, 
   3.495398892616804*^9, {3.495922938707839*^9, 3.4959229711678843`*^9}, {
   3.4959231003080654`*^9, 3.4959231175680895`*^9}, {3.4971602295387588`*^9, 
   3.4971602339691668`*^9}, {3.521344047531579*^9, 3.5213440556315904`*^9}, {
   3.522011204087694*^9, 3.522011204087694*^9}, {3.5269414956611137`*^9, 
   3.526941503601527*^9}, {3.5291965731440926`*^9, 3.5291965731440926`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{"u", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox["x", "n"]}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", 
        RowBox[{"2", " ", "n"}]]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{"u", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", 
            RowBox[{"2", " ", "n"}]]}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.4953915848214207`*^9, 
   3.495391696001576*^9, 3.4959228185976706`*^9, 3.495922913057803*^9, 
   3.495923018917951*^9, {3.4959235009586263`*^9, 3.4959235044486313`*^9}, 
   3.495923597958762*^9, {3.4967267852794013`*^9, 3.496726787416605*^9}, {
   3.497160187917886*^9, 3.497160191381092*^9}, {3.5220108283382025`*^9, 
   3.5220108303953204`*^9}, {3.526941475037877*^9, 3.526941486223097*^9}, {
   3.526944260959569*^9, 3.526944268385182*^9}, {3.5269445071436014`*^9, 
   3.5269445089688044`*^9}, {3.5291955204386435`*^9, 3.529195523761449*^9}, {
   3.529196390795372*^9, 3.529196393774977*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"u_.", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"x_", "^", "n_."}]}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{"x_", "^", "j_."}]}]}], ")"}], "^", "p_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"u", "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"c", "*", 
          RowBox[{"x", "^", 
           RowBox[{"(", 
            RowBox[{"2", "*", "n"}], ")"}]}]}]}], ")"}], "^", "p"}]}], ",", 
     "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "n", ",", "p"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"j", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"b", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4959225619973116`*^9, {3.4959230364279757`*^9, 3.4959230376679773`*^9}, 
   3.495923494298617*^9, {3.495923555498702*^9, 3.4959235563087034`*^9}, 
   3.4967267756697845`*^9, {3.49672681861666*^9, 3.4967268308626814`*^9}, {
   3.497159195377345*^9, 3.49715920372336*^9}, {3.4971596430245285`*^9, 
   3.4971596546621494`*^9}, {3.4971597187782617`*^9, 
   3.4971597300570817`*^9}, {3.521344096001647*^9, 3.5213440979116497`*^9}, {
   3.5220109584456444`*^9, 3.522010968041193*^9}, {3.5220112082859344`*^9, 
   3.5220112097790203`*^9}, {3.5269414337914047`*^9, 3.526941437753812*^9}, {
   3.526941573037249*^9, 3.526941593348485*^9}, {3.526944205813472*^9, 
   3.5269442402583323`*^9}, {3.526944313828062*^9, 3.5269443298336897`*^9}, {
   3.5269443963834066`*^9, 3.5269444040430202`*^9}, {3.52694452906164*^9, 
   3.52694458024533*^9}, 3.526944933024349*^9, 3.528997185334603*^9, {
   3.5291955306098614`*^9, 3.52919555845591*^9}, {3.529195591465568*^9, 
   3.529195593181571*^9}, {3.5291963990321865`*^9, 3.5291964163950167`*^9}, 
   3.5291966119413605`*^9, {3.706141741928461*^9, 3.706141741938461*^9}, {
   3.7154739589404902`*^9, 3.7154739657018766`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["5:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{"u", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox["x", "n"]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", 
          RowBox[{"2", " ", "n"}]]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{"c", "\[Equal]", "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.5192504337891226`*^9, 3.5192504707812386`*^9}, 3.5192506717957726`*^9, {
   3.519250720795459*^9, 3.5192507409818945`*^9}, 3.519258420209427*^9, 
   3.519258489779525*^9, {3.519320786305674*^9, 3.519320803294104*^9}, {
   3.519329422708468*^9, 3.5193294257984724`*^9}, 3.5193294706485353`*^9, {
   3.5193302883925123`*^9, 3.519330307237345*^9}, {3.5193303440378103`*^9, 
   3.5193303650666466`*^9}, 3.5193341918281684`*^9, {3.5193346196121197`*^9, 
   3.519334632840943*^9}, {3.519341922663512*^9, 3.5193419232095127`*^9}, 
   3.5193423494490614`*^9, {3.5193456600396833`*^9, 3.519345660273684*^9}, 
   3.519410696547495*^9, {3.519793559756592*^9, 3.5197935600217924`*^9}, {
   3.5210541942272606`*^9, 3.5210542323693275`*^9}, {3.521054705798959*^9, 
   3.5210547345342093`*^9}, {3.521055431683834*^9, 3.5210554455522585`*^9}, {
   3.5210554827427235`*^9, 3.521055535954417*^9}, {3.5210583779710083`*^9, 
   3.5210583808258133`*^9}, {3.521059537848645*^9, 3.5210595406722507`*^9}, {
   3.521073278133219*^9, 3.521073278289219*^9}, {3.5210733530601506`*^9, 
   3.5210733594717617`*^9}, {3.5210749590361714`*^9, 3.521074959285772*^9}, {
   3.5210750684603634`*^9, 3.521075082640788*^9}, {3.5211302494180717`*^9, 
   3.5211302530480766`*^9}, 3.5211308367808948`*^9, {3.5211323417405057`*^9, 
   3.521132341920506*^9}, {3.5211329193813143`*^9, 3.521132920581316*^9}, {
   3.5211334086319995`*^9, 3.5211334145920076`*^9}, 3.5211339031426916`*^9, {
   3.5211339800327997`*^9, 3.521133999102826*^9}, {3.5211340957429614`*^9, 
   3.521134096002962*^9}, {3.521135314144667*^9, 3.521135318594673*^9}, {
   3.521135364874738*^9, 3.521135364874738*^9}, {3.5213438858413525`*^9, 
   3.5213438941113644`*^9}, {3.5213439302614145`*^9, 
   3.5213439302614145`*^9}, {3.521343988081496*^9, 3.521344018781539*^9}, {
   3.5213440660716047`*^9, 3.5213440660716047`*^9}, {3.5213444058120804`*^9, 
   3.5213444106820874`*^9}, {3.5214684168581123`*^9, 
   3.5214684170765123`*^9}, {3.52149478528579*^9, 3.52149481372464*^9}, {
   3.521499215591608*^9, 3.52149921649641*^9}, {3.521999242783615*^9, 
   3.5219992516436276`*^9}, {3.5219993142037153`*^9, 
   3.5219993144637156`*^9}, {3.5220108123552885`*^9, 
   3.5220108400578732`*^9}, {3.5220135333009176`*^9, 
   3.5220135334289255`*^9}, {3.523319008544857*^9, 3.523319008544857*^9}, {
   3.5269414178829765`*^9, 3.5269414184409776`*^9}, {3.52694152202516*^9, 
   3.526941546548403*^9}, {3.5269418749401793`*^9, 3.5269418751897798`*^9}, {
   3.52694417640742*^9, 3.5269441793714256`*^9}, 3.526944249665149*^9, 
   3.526944496863183*^9, {3.529188040720413*^9, 3.5291880409504137`*^9}, 
   3.529195574227538*^9, {3.5291958955257025`*^9, 3.529195896617704*^9}, {
   3.5291963802965536`*^9, 3.5291963802965536`*^9}, {3.5291965631912746`*^9, 
   3.5291965657496796`*^9}, {3.5713701864118333`*^9, 3.5713701866918335`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic simplification", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495923078768035*^9, {3.495923273118307*^9, 
   3.4959232939383364`*^9}, 3.4971601701650543`*^9, {3.52694151090234*^9, 
   3.5269415144747467`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"c", "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.495391630941485*^9, 3.4953916682515373`*^9}, 
   3.495398892616804*^9, {3.495922938707839*^9, 3.4959229711678843`*^9}, {
   3.4959231003080654`*^9, 3.4959231175680895`*^9}, {3.4971602295387588`*^9, 
   3.4971602339691668`*^9}, {3.521344047531579*^9, 3.5213440556315904`*^9}, {
   3.522011204087694*^9, 3.522011204087694*^9}, {3.5269414956611137`*^9, 
   3.526941503601527*^9}, {3.529196569571686*^9, 3.529196569571686*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{"u", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox["x", "n"]}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", 
        RowBox[{"2", " ", "n"}]]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{"u", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           SuperscriptBox["x", "n"]}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.4953915848214207`*^9, 
   3.495391696001576*^9, 3.4959228185976706`*^9, 3.495922913057803*^9, 
   3.495923018917951*^9, {3.4959235009586263`*^9, 3.4959235044486313`*^9}, 
   3.495923597958762*^9, {3.4967267852794013`*^9, 3.496726787416605*^9}, {
   3.497160187917886*^9, 3.497160191381092*^9}, {3.5220108283382025`*^9, 
   3.5220108303953204`*^9}, {3.526941475037877*^9, 3.526941486223097*^9}, {
   3.526944260959569*^9, 3.526944268385182*^9}, {3.5269445071436014`*^9, 
   3.5269445089688044`*^9}, {3.5291955204386435`*^9, 3.529195523761449*^9}, {
   3.529196390795372*^9, 3.529196393774977*^9}, {3.5291965850001135`*^9, 
   3.529196588104519*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"u_.", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"x_", "^", "n_."}]}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{"x_", "^", "j_."}]}]}], ")"}], "^", "p_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"u", "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"x", "^", "n"}]}]}], ")"}], "^", "p"}]}], ",", "x"}], "]"}],
    " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "n", ",", "p"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"j", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"c", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4959225619973116`*^9, {3.4959230364279757`*^9, 3.4959230376679773`*^9}, 
   3.495923494298617*^9, {3.495923555498702*^9, 3.4959235563087034`*^9}, 
   3.4967267756697845`*^9, {3.49672681861666*^9, 3.4967268308626814`*^9}, {
   3.497159195377345*^9, 3.49715920372336*^9}, {3.4971596430245285`*^9, 
   3.4971596546621494`*^9}, {3.4971597187782617`*^9, 
   3.4971597300570817`*^9}, {3.521344096001647*^9, 3.5213440979116497`*^9}, {
   3.5220109584456444`*^9, 3.522010968041193*^9}, {3.5220112082859344`*^9, 
   3.5220112097790203`*^9}, {3.5269414337914047`*^9, 3.526941437753812*^9}, {
   3.526941573037249*^9, 3.526941593348485*^9}, {3.526944205813472*^9, 
   3.5269442402583323`*^9}, {3.526944313828062*^9, 3.5269443298336897`*^9}, {
   3.5269443963834066`*^9, 3.5269444040430202`*^9}, {3.52694452906164*^9, 
   3.52694458024533*^9}, 3.526944933024349*^9, 3.528997185334603*^9, {
   3.5291955306098614`*^9, 3.52919555845591*^9}, {3.529195591465568*^9, 
   3.529195593181571*^9}, {3.5291963990321865`*^9, 3.5291964163950167`*^9}, {
   3.5291966140629644`*^9, 3.529196649958627*^9}, {3.706141741958461*^9, 
   3.706141741968461*^9}, {3.715473973157303*^9, 3.715473975823456*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["2:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{"u", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a", " ", "v"}], "+", 
       RowBox[{"b", " ", "v"}], "+", "w"}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox[" ",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["v",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox[" ",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["depends",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox[" ",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["on",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox[" ",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["x",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell["", "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.529529515260968*^9}, {
   3.5340370913129697`*^9, 3.534037093192972*^9}, {3.534037150209852*^9, 
   3.5340371984963207`*^9}, {3.5340379506477776`*^9, 3.534037956427786*^9}, {
   3.5340379870478287`*^9, 3.534038006637856*^9}, {3.5340381571060677`*^9, 
   3.534038157416068*^9}, {3.5340446077491837`*^9, 3.534044610082317*^9}, {
   3.5368004791548157`*^9, 3.536800480944818*^9}, 3.5368009933455353`*^9, {
   3.536863640353322*^9, 3.536863656811351*^9}, 3.5368639315122337`*^9, {
   3.536871944264365*^9, 3.536871944494365*^9}, {3.5568541934154644`*^9, 
   3.556854197003471*^9}, {3.5713332512725544`*^9, 3.5713332543325586`*^9}, {
   3.5713333269826603`*^9, 3.57133336287271*^9}, {3.5713334121427794`*^9, 
   3.57133341234278*^9}, 3.571966482964611*^9, 3.5719672794871893`*^9, {
   3.5721260401888604`*^9, 3.5721260540288796`*^9}, {3.572197363657309*^9, 
   3.5721973669573135`*^9}, {3.5721975512175713`*^9, 
   3.5721975626575875`*^9}, {3.5721975986476383`*^9, 3.5721975986476383`*^9}, 
   3.5721977316278243`*^9, {3.5721978030679245`*^9, 3.5721978153879414`*^9}, {
   3.572304778628147*^9, 3.572304786918159*^9}, {3.5723054314890614`*^9, 
   3.572305454619094*^9}, {3.57230550204916*^9, 3.57230550204916*^9}, {
   3.572492421727848*^9, 3.5724924218778486`*^9}, {3.572568235561757*^9, 
   3.5725682359617577`*^9}, {3.5727163169296713`*^9, 3.572716368569744*^9}, {
   3.5727164077797985`*^9, 3.5727164086998005`*^9}, {3.572716711070224*^9, 
   3.5727167154402294`*^9}, {3.5727588970657554`*^9, 
   3.5727589006757603`*^9}, {3.5732256506156063`*^9, 3.573225650818406*^9}, {
   3.57505103506847*^9, 3.5750510353804708`*^9}, {3.597890483378213*^9, 
   3.597890483668214*^9}, {3.59789304838181*^9, 3.597893048831811*^9}, {
   3.6020116618791943`*^9, 3.602011662249195*^9}, {3.6092815751580896`*^9, 
   3.6092815753280897`*^9}, {3.609281683278241*^9, 3.6092816834882417`*^9}, {
   3.6092823014291067`*^9, 3.609282301609107*^9}, {3.609283148130292*^9, 
   3.6092831483102922`*^9}, {3.6133303970404544`*^9, 
   3.6133303971604548`*^9}, {3.636823422011064*^9, 3.6368234228846655`*^9}, {
   3.6370001829714174`*^9, 3.6370002120430803`*^9}, {3.6374326696426897`*^9, 
   3.6374326700287123`*^9}, {3.6376200691263256`*^9, 
   3.6376200698563266`*^9}, {3.6378146207941422`*^9, 3.637814622211223*^9}, {
   3.6378146658237176`*^9, 3.637814694658367*^9}, {3.6378150569290876`*^9, 
   3.6378151068999457`*^9}, {3.637815145503154*^9, 3.6378151495903873`*^9}, {
   3.6378152553504367`*^9, 3.637815255539448*^9}, {3.6532575592655983`*^9, 
   3.6532575904956417`*^9}, {3.653257669885753*^9, 3.653257670065754*^9}, {
   3.6532578429559956`*^9, 3.653257846626001*^9}, {3.653257903936081*^9, 
   3.6532579743661795`*^9}, {3.653258497376912*^9, 3.6532584986569138`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic simplification", "Subsubsection",
 CellChangeTimes->{
  3.496441803031353*^9, 3.4965396318089237`*^9, {3.4966002562016735`*^9, 
   3.4966002624716825`*^9}, 3.496600707442305*^9, 3.4966008475725017`*^9, {
   3.5225487923142576`*^9, 3.5225487957142625`*^9}, 3.523121638472142*^9, {
   3.523127523830389*^9, 3.523127525660392*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData["v"],
  CellDingbat->None,
  CellChangeTimes->{
   3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
    3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
    3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
    3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
    3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
    3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
    3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
    3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
    3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
    3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
    3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
    3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
    3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
    3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
    3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
    3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
    3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
    3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
    3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
    3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
    3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9},
     3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
    3.5200207810164795`*^9, 3.520020785046485*^9}, {3.521070903512648*^9, 
    3.5210709252746863`*^9}, 3.521070971825168*^9, {3.5210731408529778`*^9, 
    3.5210731428653812`*^9}, {3.5211320572901077`*^9, 
    3.5211320822301426`*^9}, {3.521132813901167*^9, 3.5211328157011695`*^9}, {
    3.521138107168577*^9, 3.521138138788622*^9}, {3.5213434034906774`*^9, 
    3.5213434034906774`*^9}, {3.5213436641010423`*^9, 
    3.5213436641010423`*^9}, {3.521468421007719*^9, 3.5214684212573195`*^9}, 
    3.52149906843655*^9, {3.5214992631248918`*^9, 3.521499264809695*^9}, {
    3.5214994721028585`*^9, 3.5214994934748964`*^9}, {3.5219976877714386`*^9, 
    3.5219976879714384`*^9}, {3.5219978031516*^9, 3.5219978031516*^9}, {
    3.5232920962843847`*^9, 3.523292099347548*^9}, {3.5232922625546527`*^9, 
    3.523292263594654*^9}, {3.523298410020116*^9, 3.523298447354977*^9}, 
    3.523298925426959*^9, {3.5233002081802387`*^9, 3.5233002084142394`*^9}, {
    3.5233178261561832`*^9, 3.523317841616205*^9}, 3.5239108148539*^9, 
    3.5247075281525335`*^9, {3.5247086508129063`*^9, 3.524708657645718*^9}, {
    3.524708934995405*^9, 3.524708934995405*^9}, {3.5247092669295883`*^9, 
    3.5247092669295883`*^9}, 3.524711494770297*^9, {3.5247621349977293`*^9, 
    3.5247621472477465`*^9}, {3.5250404445954823`*^9, 3.5250404448606825`*^9},
     3.5252802079961166`*^9, {3.5252804667537713`*^9, 
    3.5252804833678007`*^9}, {3.525284451934058*^9, 3.5252844521240587`*^9}, 
    3.5256203518579845`*^9, {3.525620423588085*^9, 3.525620424088086*^9}, {
    3.525620477888161*^9, 3.5256204786781626`*^9}, {3.5256211807891455`*^9, 
    3.525621182239147*^9}, {3.5695182710289507`*^9, 3.5695182710289507`*^9}, 
    3.5758326129004307`*^9, {3.6303702577820177`*^9, 
    3.6303702577820177`*^9}, {3.630370385192305*^9, 3.630370386387374*^9}, {
    3.6369997575250835`*^9, 3.6369997584681373`*^9}, {3.6370218164737825`*^9, 
    3.637021816704796*^9}, {3.651698718610255*^9, 3.6516987633068113`*^9}, 
    3.651699070580386*^9, {3.6516997844302163`*^9, 3.6516997884704475`*^9}, {
    3.6516998800206833`*^9, 3.6516998800206833`*^9}},
  FontSize->12,
  FontWeight->"Bold"],
 " depends on ",
 Cell[BoxData["x"],
  CellDingbat->None,
  CellChangeTimes->{
   3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
    3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
    3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
    3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
    3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
    3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
    3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
    3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
    3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
    3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
    3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
    3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
    3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
    3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
    3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
    3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
    3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
    3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
    3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
    3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
    3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9},
     3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
    3.5200207810164795`*^9, 3.520020785046485*^9}, {3.521070903512648*^9, 
    3.5210709252746863`*^9}, 3.521070971825168*^9, {3.5210731408529778`*^9, 
    3.5210731428653812`*^9}, {3.5211320572901077`*^9, 
    3.5211320822301426`*^9}, {3.521132813901167*^9, 3.5211328157011695`*^9}, {
    3.521138107168577*^9, 3.521138138788622*^9}, {3.5213434034906774`*^9, 
    3.5213434034906774`*^9}, {3.5213436641010423`*^9, 
    3.5213436641010423`*^9}, {3.521468421007719*^9, 3.5214684212573195`*^9}, 
    3.52149906843655*^9, {3.5214992631248918`*^9, 3.521499264809695*^9}, {
    3.5214994721028585`*^9, 3.5214994934748964`*^9}, {3.5219976877714386`*^9, 
    3.5219976879714384`*^9}, {3.5219978031516*^9, 3.5219978031516*^9}, {
    3.5232920962843847`*^9, 3.523292099347548*^9}, {3.5232922625546527`*^9, 
    3.523292263594654*^9}, {3.523298410020116*^9, 3.523298447354977*^9}, 
    3.523298925426959*^9, {3.5233002081802387`*^9, 3.5233002084142394`*^9}, {
    3.5233178261561832`*^9, 3.523317841616205*^9}, 3.5239108148539*^9, 
    3.5247075281525335`*^9, {3.5247086508129063`*^9, 3.524708657645718*^9}, {
    3.524708934995405*^9, 3.524708934995405*^9}, {3.5247092669295883`*^9, 
    3.5247092669295883`*^9}, 3.524711494770297*^9, {3.5247621349977293`*^9, 
    3.5247621472477465`*^9}, {3.5250404445954823`*^9, 3.5250404448606825`*^9},
     3.5252802079961166`*^9, {3.5252804667537713`*^9, 
    3.5252804833678007`*^9}, {3.525284451934058*^9, 3.5252844521240587`*^9}, 
    3.5256203518579845`*^9, {3.525620423588085*^9, 3.525620424088086*^9}, {
    3.525620477888161*^9, 3.5256204786781626`*^9}, {3.5256211807891455`*^9, 
    3.525621182239147*^9}, {3.5695182710289507`*^9, 3.5695182710289507`*^9}, 
    3.5758326129004307`*^9, {3.6303702577820177`*^9, 
    3.6303702577820177`*^9}, {3.630370385192305*^9, 3.630370386387374*^9}, {
    3.6369997575250835`*^9, 3.6369997584681373`*^9}, {3.6370218164737825`*^9, 
    3.637021816704796*^9}, {3.651698718610255*^9, 3.6516987633068113`*^9}, 
    3.651699070580386*^9, {3.6516997844302163`*^9, 3.6516997884704475`*^9}, {
    3.6516998800206833`*^9, 3.6516998800206833`*^9}},
  FontSize->12,
  FontWeight->"Bold"],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965273860117702`*^9, {
   3.496527505001937*^9, 3.496527517081954*^9}, {3.519251168313445*^9, 
   3.519251168313445*^9}, {3.519321363194687*^9, 3.5193213649106903`*^9}, {
   3.519330106049425*^9, 3.5193301074894266`*^9}, 3.519335396321884*^9, {
   3.5193459669858227`*^9, 3.519345970074628*^9}, {3.5239209780525475`*^9, 
   3.5239209780525475`*^9}, {3.52392108216393*^9, 3.52392108216393*^9}, 
   3.534037432909049*^9, {3.534045418625588*^9, 3.5340454309005094`*^9}, {
   3.5368005815649586`*^9, 3.5368005865849657`*^9}, {3.536870757062703*^9, 
   3.5368707894927483`*^9}, {3.536870964012993*^9, 3.536870964762994*^9}, {
   3.5713333693127193`*^9, 3.5713333693127193`*^9}, {3.572126099188943*^9, 
   3.572126099188943*^9}, {3.5721975650175905`*^9, 3.5721975674775944`*^9}, {
   3.572197602227643*^9, 3.572197602227643*^9}, {3.5723055650892487`*^9, 
   3.5723055650892487`*^9}, {3.5727164124498053`*^9, 
   3.5727164124498053`*^9}, {3.572716810020362*^9, 3.572716810020362*^9}, {
   3.63781462740352*^9, 3.63781462740352*^9}, {3.637815154719681*^9, 
   3.637815154719681*^9}, {3.653257682385771*^9, 3.6532576837157726`*^9}, {
   3.6532579891062*^9, 3.6532580230162477`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{"u", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"a", " ", "v"}], "+", 
      RowBox[{"b", " ", "v"}], "+", "w"}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{"u", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", "+", "b"}], ")"}], " ", "v"}], "+", "w"}], ")"}], 
        "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496527397831787*^9, 3.4965274052017975`*^9}, {
   3.4965274586418724`*^9, 3.4965274787619004`*^9}, {3.4965275648620205`*^9, 
   3.4965275752520356`*^9}, {3.5192511699358473`*^9, 
   3.5192511712150497`*^9}, {3.523920979253749*^9, 3.5239209805953517`*^9}, {
   3.5239210854399357`*^9, 3.5239210867503386`*^9}, 3.534037339455318*^9, {
   3.534037379908975*^9, 3.5340374029190073`*^9}, {3.5340380497003164`*^9, 
   3.5340380723951488`*^9}, {3.5368008011652665`*^9, 
   3.5368008262353015`*^9}, {3.5368008613253508`*^9, 3.536800879685376*^9}, {
   3.5368636811473937`*^9, 3.536863698837825*^9}, {3.571966484459697*^9, 
   3.5719664851717377`*^9}, {3.571967282227193*^9, 3.5719672871772003`*^9}, {
   3.5721261110489597`*^9, 3.572126131028988*^9}, {3.5721975919476285`*^9, 
   3.572197653117714*^9}, {3.5721977333478265`*^9, 3.572197736327831*^9}, {
   3.5723048486782455`*^9, 3.57230488047829*^9}, {3.5723054993591566`*^9, 
   3.5723055572392373`*^9}, {3.572716345199711*^9, 3.572716348639716*^9}, {
   3.5727163797697597`*^9, 3.5727164155398097`*^9}, {3.572716457269868*^9, 
   3.572716463909878*^9}, 3.5727167561302867`*^9, {3.6378146281695642`*^9, 
   3.637814630129676*^9}, {3.637814672400094*^9, 3.6378147026078215`*^9}, {
   3.6378148267029195`*^9, 3.637814827129944*^9}, {3.6378152200814195`*^9, 
   3.637815243122737*^9}, {3.65325772468583*^9, 3.653257761525882*^9}, {
   3.6532580403362722`*^9, 3.653258064006305*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"u_.", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a_.", "*", "v_"}], "+", 
        RowBox[{"b_.", "*", "v_"}], "+", "w_."}], ")"}], "^", "p_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"u", "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", "b"}], ")"}], "*", "v"}], "+", "w"}], ")"}], "^",
        "p"}]}], ",", "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"FreeQ", "[", 
      RowBox[{"v", ",", "x"}], "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496527216151533*^9, 
   3.496527365061741*^9, 3.4965274971219263`*^9, 3.496527553692005*^9, {
   3.5192511726502523`*^9, 3.5192511752866573`*^9}, 3.5195384012708387`*^9, 
   3.5225996122898135`*^9, {3.5239209832473564`*^9, 3.5239209862425613`*^9}, {
   3.523921090821945*^9, 3.523921095876354*^9}, 3.5259116466395736`*^9, {
   3.529252832106889*^9, 3.5292528373484983`*^9}, 3.529526964780136*^9, 
   3.529529559830247*^9, 3.5340076908113937`*^9, {3.534037441469061*^9, 
   3.534037455549081*^9}, {3.53403750503835*^9, 3.5340375209199724`*^9}, {
   3.5340376591389675`*^9, 3.5340376616025705`*^9}, {3.534038172147689*^9, 
   3.534038235069377*^9}, {3.5340382735950313`*^9, 3.5340382993250675`*^9}, {
   3.534039049543722*^9, 3.53403905516373*^9}, {3.534039320924905*^9, 
   3.5340393324821205`*^9}, {3.5340397602183228`*^9, 
   3.5340397679883337`*^9}, {3.5340398339260263`*^9, 3.5340398370660305`*^9}, 
   3.534046608000801*^9, {3.534046711182184*^9, 3.534046736033028*^9}, {
   3.53404834233665*^9, 3.5340483522738667`*^9}, {3.5341079269197545`*^9, 
   3.534107934178566*^9}, {3.5368003354646144`*^9, 3.536800341544623*^9}, 
   3.5368004953548384`*^9, 3.5368007398051805`*^9, {3.5368008892653894`*^9, 
   3.5368009233354373`*^9}, {3.536801431526149*^9, 3.536801467546199*^9}, {
   3.5368018637867537`*^9, 3.5368018683867607`*^9}, 3.536863538937544*^9, {
   3.5368637169338565`*^9, 3.5368637346242876`*^9}, {3.5368645152223635`*^9, 
   3.5368645156023636`*^9}, 3.5368645768424497`*^9, 3.5368727581791053`*^9, {
   3.5385111277874217`*^9, 3.538511131319624*^9}, {3.538512719340453*^9, 
   3.538512722210617*^9}, 3.540923692754863*^9, 3.5409329098270493`*^9, 
   3.5409332346116257`*^9, 3.5409404258459406`*^9, {3.542248844998252*^9, 
   3.542248850676662*^9}, {3.5719665637252307`*^9, 3.5719665660283623`*^9}, {
   3.5719673168472414`*^9, 3.57196733730727*^9}, {3.572126150799015*^9, 
   3.572126212789102*^9}, 3.5721976052076473`*^9, {3.572197674847745*^9, 
   3.5721976822977552`*^9}, {3.57219772118781*^9, 3.572197753487855*^9}, {
   3.572304522577789*^9, 3.572304527117795*^9}, {3.5723048992283163`*^9, 
   3.5723049217183475`*^9}, {3.572304954318393*^9, 3.5723049616184034`*^9}, {
   3.5723055852692766`*^9, 3.572305635639347*^9}, {3.572305666809391*^9, 
   3.5723056832594137`*^9}, {3.5724548164456987`*^9, 3.572454821405706*^9}, {
   3.572533603200158*^9, 3.5725336063201632`*^9}, {3.572567815699102*^9, 
   3.5725678196263266`*^9}, {3.5726659958233027`*^9, 3.572665998733307*^9}, {
   3.572715250694175*^9, 3.5727152545841804`*^9}, {3.572716193239498*^9, 
   3.572716196079502*^9}, {3.572716351849721*^9, 3.572716419909816*^9}, {
   3.572716819280375*^9, 3.572716860710433*^9}, {3.5727168930504785`*^9, 
   3.5727168940704794`*^9}, 3.5727198074005623`*^9, {3.6338976514839907`*^9, 
   3.633897651660001*^9}, {3.6374326356747475`*^9, 3.6374326392269506`*^9}, {
   3.6374350076674175`*^9, 3.63743501067859*^9}, {3.6378146342089095`*^9, 
   3.6378147097372293`*^9}, {3.6378148339353333`*^9, 
   3.6378148366214867`*^9}, {3.6378151579878683`*^9, 3.63781516082203*^9}, {
   3.6378152634348993`*^9, 3.6378152713283505`*^9}, {3.6532576986157937`*^9, 
   3.6532577016857977`*^9}, {3.6532577814459095`*^9, 
   3.6532577823759108`*^9}, {3.653258084546334*^9, 3.653258214286515*^9}, {
   3.6532582634865847`*^9, 3.6532582636665845`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["3:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{"u", " ", 
    SuperscriptBox[
     RowBox[{"P", "[", "x", "]"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{"p", "\[NotElement]", "\[DoubleStruckCapitalQ]"}], " ", 
      "\[And]", " ", 
      RowBox[{
       RowBox[{"Simplify", "[", "p", "]"}], "\[Element]", 
       "\[DoubleStruckCapitalQ]"}]}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.5192504337891226`*^9, 3.5192504707812386`*^9}, 3.5192506717957726`*^9, {
   3.519250720795459*^9, 3.5192507409818945`*^9}, 3.519258420209427*^9, 
   3.519258489779525*^9, {3.519320786305674*^9, 3.519320803294104*^9}, {
   3.519329422708468*^9, 3.5193294257984724`*^9}, 3.5193294706485353`*^9, {
   3.5193302883925123`*^9, 3.519330307237345*^9}, {3.5193303440378103`*^9, 
   3.5193303650666466`*^9}, 3.5193341918281684`*^9, {3.5193346196121197`*^9, 
   3.519334632840943*^9}, {3.519341922663512*^9, 3.5193419232095127`*^9}, 
   3.5193423494490614`*^9, {3.5193456600396833`*^9, 3.519345660273684*^9}, 
   3.519410696547495*^9, {3.519793559756592*^9, 3.5197935600217924`*^9}, {
   3.5210541942272606`*^9, 3.5210542323693275`*^9}, {3.521054705798959*^9, 
   3.5210547345342093`*^9}, {3.521055431683834*^9, 3.5210554455522585`*^9}, {
   3.5210554827427235`*^9, 3.521055535954417*^9}, {3.5210583779710083`*^9, 
   3.5210583808258133`*^9}, {3.521059537848645*^9, 3.5210595406722507`*^9}, {
   3.521073278133219*^9, 3.521073278289219*^9}, {3.5210733530601506`*^9, 
   3.5210733594717617`*^9}, {3.5210749590361714`*^9, 3.521074959285772*^9}, {
   3.5210750684603634`*^9, 3.521075082640788*^9}, {3.5211302494180717`*^9, 
   3.5211302530480766`*^9}, 3.5211308367808948`*^9, {3.5211323417405057`*^9, 
   3.521132341920506*^9}, {3.5211329193813143`*^9, 3.521132920581316*^9}, {
   3.5211334086319995`*^9, 3.5211334145920076`*^9}, 3.5211339031426916`*^9, {
   3.5211339800327997`*^9, 3.521133999102826*^9}, {3.5211340957429614`*^9, 
   3.521134096002962*^9}, {3.521135314144667*^9, 3.521135318594673*^9}, {
   3.521135364874738*^9, 3.521135364874738*^9}, {3.5213438858413525`*^9, 
   3.5213438941113644`*^9}, {3.5213439302614145`*^9, 
   3.5213439302614145`*^9}, {3.521343988081496*^9, 3.521344018781539*^9}, {
   3.5213440660716047`*^9, 3.5213440660716047`*^9}, {3.5213444058120804`*^9, 
   3.5213444106820874`*^9}, {3.5214684168581123`*^9, 
   3.5214684170765123`*^9}, {3.52149478528579*^9, 3.52149481372464*^9}, {
   3.521499215591608*^9, 3.52149921649641*^9}, {3.521999242783615*^9, 
   3.5219992516436276`*^9}, {3.5219993142037153`*^9, 
   3.5219993144637156`*^9}, {3.5220108123552885`*^9, 
   3.5220108400578732`*^9}, {3.5220135333009176`*^9, 
   3.5220135334289255`*^9}, {3.523319008544857*^9, 3.523319008544857*^9}, {
   3.5269414178829765`*^9, 3.5269414184409776`*^9}, {3.52694152202516*^9, 
   3.526941546548403*^9}, {3.5269418749401793`*^9, 3.5269418751897798`*^9}, {
   3.52694417640742*^9, 3.5269441793714256`*^9}, 3.526944249665149*^9, 
   3.526944496863183*^9, {3.529188040720413*^9, 3.5291880409504137`*^9}, 
   3.529195574227538*^9, 3.5291958095539513`*^9, {3.5425848512522287`*^9, 
   3.542584897762294*^9}, {3.542584990642424*^9, 3.5425849937624283`*^9}, {
   3.5713702600719366`*^9, 3.5713702611219378`*^9}, {3.57137032707203*^9, 
   3.5713703281420317`*^9}, {3.5978886515356483`*^9, 
   3.5978886539756517`*^9}, {3.6161976589549513`*^9, 
   3.6161976641949587`*^9}, {3.616197694325001*^9, 3.616197701725011*^9}, {
   3.616197798705147*^9, 3.616197803145153*^9}, {3.6161978469852147`*^9, 
   3.6161979071752987`*^9}, {3.637096903281313*^9, 3.6370969100426993`*^9}, 
   3.637096979274659*^9, {3.653258500996917*^9, 3.653258501326917*^9}, 
   3.741724517530122*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic simplification", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495923078768035*^9, {3.495923273118307*^9, 
   3.4959232939383364`*^9}, 3.4971601701650543`*^9, {3.52694151090234*^9, 
   3.5269415144747467`*^9}}],

Cell["\<\
Note: Rubi\[CloseCurlyQuote]s integration rules assume integer and rational \
exponents are recognized as such.\
\>", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495923078768035*^9, {3.495923273118307*^9, 
   3.4959232939383364`*^9}, 3.4971601701650543`*^9, {3.52694151090234*^9, 
   3.5269415144747467`*^9}, {3.571332696021777*^9, 3.5713327465518475`*^9}, {
   3.5713328878020453`*^9, 3.5713329147320833`*^9}, {3.5978885723055377`*^9, 
   3.59788857375554*^9}, {3.6161981547956457`*^9, 3.616198213345728*^9}, {
   3.7417245821328173`*^9, 3.7417245850679855`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"p", "\[NotElement]", "\[DoubleStruckCapitalQ]"}], " ", "\[And]", 
   " ", 
   RowBox[{
    RowBox[{"Simplify", "[", "p", "]"}], "\[Element]", 
    "\[DoubleStruckCapitalQ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.495391630941485*^9, 3.4953916682515373`*^9}, 
   3.495398892616804*^9, {3.495922938707839*^9, 3.4959229711678843`*^9}, {
   3.4959231003080654`*^9, 3.4959231175680895`*^9}, {3.4971602295387588`*^9, 
   3.4971602339691668`*^9}, {3.521344047531579*^9, 3.5213440556315904`*^9}, {
   3.522011204087694*^9, 3.522011204087694*^9}, {3.5269414956611137`*^9, 
   3.526941503601527*^9}, {3.5425849045223036`*^9, 3.542584908452309*^9}, {
   3.5425849971924334`*^9, 3.542585000392438*^9}, {3.6161979172853127`*^9, 
   3.6161979172853127`*^9}, {3.6370969148419743`*^9, 3.637096922794429*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{"u", " ", 
   SuperscriptBox[
    RowBox[{"P", "[", "x", "]"}], "p"], "u", 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{"u", " ", 
       SuperscriptBox[
        RowBox[{"P", "[", "x", "]"}], 
        RowBox[{"Simplify", "[", "p", "]"}]], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.4953915848214207`*^9, 
   3.495391696001576*^9, 3.4959228185976706`*^9, 3.495922913057803*^9, 
   3.495923018917951*^9, {3.4959235009586263`*^9, 3.4959235044486313`*^9}, 
   3.495923597958762*^9, {3.4967267852794013`*^9, 3.496726787416605*^9}, {
   3.497160187917886*^9, 3.497160191381092*^9}, {3.5220108283382025`*^9, 
   3.5220108303953204`*^9}, {3.526941475037877*^9, 3.526941486223097*^9}, {
   3.526944260959569*^9, 3.526944268385182*^9}, {3.5269445071436014`*^9, 
   3.5269445089688044`*^9}, {3.5291955204386435`*^9, 3.529195523761449*^9}, {
   3.5291956709477077`*^9, 3.5291956822265277`*^9}, {3.5425849187923236`*^9, 
   3.5425849374023495`*^9}, {3.61619772212504*^9, 3.616197733025055*^9}, {
   3.616198268785805*^9, 3.616198283045825*^9}, {3.6370969254875827`*^9, 
   3.637096929743826*^9}, {3.6370969874881287`*^9, 3.637096992504416*^9}, {
   3.741724518976205*^9, 3.7417245198822565`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"u_.", "*", 
     RowBox[{"Px_", "^", "p_"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", 
  "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"u", "*", 
      RowBox[{"Px", "^", 
       RowBox[{"Simplify", "[", "p", "]"}]}]}], ",", "x"}], "]"}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"PolyQ", "[", 
     RowBox[{"Px", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"RationalQ", "[", "p", "]"}], "]"}], " ", "&&", " ", 
    RowBox[{"FreeQ", "[", 
     RowBox[{"p", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"RationalQ", "[", 
     RowBox[{"Simplify", "[", "p", "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4959225619973116`*^9, {3.4959230364279757`*^9, 3.4959230376679773`*^9}, 
   3.495923494298617*^9, {3.495923555498702*^9, 3.4959235563087034`*^9}, 
   3.4967267756697845`*^9, {3.49672681861666*^9, 3.4967268308626814`*^9}, {
   3.497159195377345*^9, 3.49715920372336*^9}, {3.4971596430245285`*^9, 
   3.4971596546621494`*^9}, {3.4971597187782617`*^9, 
   3.4971597300570817`*^9}, {3.521344096001647*^9, 3.5213440979116497`*^9}, {
   3.5220109584456444`*^9, 3.522010968041193*^9}, {3.5220112082859344`*^9, 
   3.5220112097790203`*^9}, {3.5269414337914047`*^9, 3.526941437753812*^9}, {
   3.526941573037249*^9, 3.526941593348485*^9}, {3.526944205813472*^9, 
   3.5269442402583323`*^9}, {3.526944313828062*^9, 3.5269443298336897`*^9}, {
   3.5269443963834066`*^9, 3.5269444040430202`*^9}, {3.52694452906164*^9, 
   3.52694458024533*^9}, {3.5269446772462997`*^9, 3.526944689695122*^9}, 
   3.526944935286353*^9, 3.528997186977697*^9, {3.5291955351026692`*^9, 
   3.529195553916302*^9}, {3.529195698029355*^9, 3.529195721179796*^9}, {
   3.5291957589786625`*^9, 3.529195776232293*^9}, {3.5425849520723705`*^9, 
   3.542584981052411*^9}, {3.542585011432453*^9, 3.5425850635025263`*^9}, {
   3.6161979382253428`*^9, 3.616197989295414*^9}, {3.616198323795882*^9, 
   3.6161983319658937`*^9}, {3.616201314281586*^9, 3.6162013224615974`*^9}, {
   3.6370969387503414`*^9, 3.637096954334233*^9}, {3.637096996751659*^9, 
   3.6370970023759804`*^9}, {3.6370970462544904`*^9, 3.6370970654945908`*^9}, 
   3.6373590579558887`*^9, 3.6427052004925966`*^9, {3.741724524102498*^9, 
   3.741724531990949*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["4.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{"a", " ", "u", " ", 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, {3.5233155055329347`*^9, 3.523315506402936*^9}, {
   3.523318726949605*^9, 3.5233187276796064`*^9}, {3.523920400879534*^9, 
   3.5239204094439487`*^9}, 3.52392096260852*^9, 3.523921038171853*^9, {
   3.52919645779749*^9, 3.5291965352204256`*^9}, {3.532209620393748*^9, 
   3.53220963592377*^9}, {3.5322097211438885`*^9, 3.53220972213389*^9}, {
   3.5322101214844494`*^9, 3.5322101217044497`*^9}, {3.5353278633098116`*^9, 
   3.5353278637622123`*^9}, {3.5367730193064003`*^9, 
   3.5367730255264087`*^9}, {3.5713331284223824`*^9, 
   3.5713331298023844`*^9}, {3.5721156453306637`*^9, 
   3.5721156495114717`*^9}, {3.6532585028769197`*^9, 3.6532585030769196`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{"a", " ", 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.5192504337891226`*^9, 3.5192504436696877`*^9}, {3.519320736057986*^9, 
   3.5193207456364026`*^9}, {3.5193282921909866`*^9, 
   3.5193283252786446`*^9}, {3.5193283634207115`*^9, 
   3.5193283676639194`*^9}, {3.5193286295571795`*^9, 
   3.5193286611160345`*^9}, {3.519341560355774*^9, 3.5193415713849936`*^9}, {
   3.5193514022902384`*^9, 3.5193514024302387`*^9}, {3.5194037903190413`*^9, 
   3.519403790599057*^9}, 3.51941073361316*^9, 3.5196771044605494`*^9, {
   3.5233155369029784`*^9, 3.5233155369029784`*^9}, 3.5239204146855583`*^9, 
   3.5239297857543354`*^9, 3.5239298325544176`*^9, {3.5295295115325623`*^9, 
   3.5295295118445625`*^9}, 3.5322095331836257`*^9, {3.532209639313774*^9, 
   3.5322096395437746`*^9}, 3.532209675733825*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: CRC 1", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{"a", 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "a"}]}], " ", 
   "x"}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{"a_", ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "   ", 
  RowBox[{
   RowBox[{"a", "*", "x"}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{"a", ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, {3.575050991669194*^9, 3.5750509927767963`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{"a", " ", 
     RowBox[{"(", 
      RowBox[{"b", "+", 
       RowBox[{"c", " ", "x"}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.5192504337891226`*^9, 3.5192504436696877`*^9}, {3.519320736057986*^9, 
   3.5193207456364026`*^9}, {3.5193282921909866`*^9, 
   3.5193283252786446`*^9}, {3.5193283634207115`*^9, 
   3.5193283676639194`*^9}, {3.5193286295571795`*^9, 
   3.5193286611160345`*^9}, {3.519341560355774*^9, 3.5193415713849936`*^9}, {
   3.5193514022902384`*^9, 3.5193514024302387`*^9}, {3.5194037903190413`*^9, 
   3.519403790599057*^9}, 3.51941073361316*^9, 3.5196771044605494`*^9, {
   3.5233155369029784`*^9, 3.5233155369029784`*^9}, 3.5239204146855583`*^9, 
   3.5239297857543354`*^9, 3.5239298325544176`*^9, {3.5295295115325623`*^9, 
   3.5295295118445625`*^9}, 3.5322095331836257`*^9, {3.532209639313774*^9, 
   3.532209665463811*^9}, {3.536777935573289*^9, 3.5367779387732935`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Power rule for integration", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{"a", " ", 
   RowBox[{"(", 
    RowBox[{"b", "+", 
     RowBox[{"c", " ", "x"}]}], ")"}], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{"a", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"b", "+", 
          RowBox[{"c", " ", "x"}]}], ")"}], "2"]}], 
      RowBox[{"2", " ", "c"}]]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.5367779456233025`*^9, 3.536777955023316*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"a_", "*", 
     RowBox[{"(", 
      RowBox[{"b_", "+", 
       RowBox[{"c_.", "*", "x_"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{"a", "*", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b", "+", 
        RowBox[{"c", "*", "x"}]}], ")"}], "^", "2"}], "/", 
     RowBox[{"(", 
      RowBox[{"2", "*", "c"}], ")"}]}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, {3.5367779860733595`*^9, 3.5367779968033743`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{"a", " ", "u", " ", 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.5192504337891226`*^9, 3.5192504436696877`*^9}, {3.519320736057986*^9, 
   3.5193207456364026`*^9}, {3.5193282921909866`*^9, 
   3.5193283252786446`*^9}, {3.5193283634207115`*^9, 
   3.5193283676639194`*^9}, {3.5193286295571795`*^9, 
   3.5193286611160345`*^9}, {3.519341560355774*^9, 3.5193415713849936`*^9}, {
   3.5193514022902384`*^9, 3.5193514024302387`*^9}, {3.5194037903190413`*^9, 
   3.519403790599057*^9}, 3.51941073361316*^9, 3.5196771044605494`*^9, {
   3.5233155369029784`*^9, 3.5233155369029784`*^9}, 3.5239204146855583`*^9, 
   3.5239297857543354`*^9, 3.5239298325544176`*^9, {3.5295295115325623`*^9, 
   3.5295295118445625`*^9}, 3.5322095331836257`*^9, {3.532209639313774*^9, 
   3.532209665463811*^9}, {3.532209704943866*^9, 3.5322097364839106`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.02.1, CRC 2", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4965289702339883`*^9}],

Cell["Derivation: Constant extraction", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4965289702339883`*^9, {3.496529469454687*^9, 
   3.496529480824703*^9}, {3.4965297180850353`*^9, 3.496529730605053*^9}, {
   3.4965300124054475`*^9, 3.496530013255449*^9}}],

Cell[TextData[{
 "Note: Since the rule for extracting the imaginary unit from integrands \
includes the function ",
 Cell[BoxData["Identity"]],
 ", it is not displayed when showing steps thus avoiding trivial steps when \
integrating expressions involving hyperbolic functions. "
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.5697811973960247`*^9, 3.5697813256762047`*^9}, {3.5697813573462486`*^9, 
   3.5697813943563004`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{"a", " ", "u", 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "a"}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{"u", 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.496528988494014*^9, 3.4965290052040377`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"-", "u_"}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Identity", "[", 
    RowBox[{"-", "1"}], "]"}], "*", 
   RowBox[{"Int", "[", 
    RowBox[{"u", ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.5098474835889254`*^9, {
   3.5099092953540363`*^9, 3.5099092985832415`*^9}, {3.509909366989362*^9, 
   3.5099093682997637`*^9}, {3.509909434849481*^9, 3.509909436643484*^9}, {
   3.511224412138645*^9, 3.511224459952729*^9}, {3.5112247828212953`*^9, 
   3.5112247891081057`*^9}, {3.5153733055764923`*^9, 
   3.5153733240469246`*^9}, {3.547954326143468*^9, 3.5479543280154715`*^9}, {
   3.5697223300603857`*^9, 3.5697223511104155`*^9}, {3.569722608950776*^9, 
   3.5697226621508503`*^9}, {3.569722696930899*^9, 3.569722791651032*^9}, 
   3.5697228269610815`*^9, {3.5697232885817275`*^9, 3.5697232947917366`*^9}, {
   3.569723401601886*^9, 3.569723431821928*^9}, 3.5697803025272713`*^9, {
   3.5697803426773276`*^9, 3.5697804147674284`*^9}, {3.569781013043267*^9, 
   3.5697810147632694`*^9}, {3.5697811172334127`*^9, 3.569781138153442*^9}, {
   3.56978150825646*^9, 3.569781514266468*^9}, {3.5697817257667646`*^9, 
   3.569781739066783*^9}, {3.5698010737257843`*^9, 3.5698011140558405`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Complex", "[", 
      RowBox[{"0", ",", "a_"}], "]"}], "*", "u_"}], ",", "x_Symbol"}], "]"}], 
  " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"Complex", "[", 
     RowBox[{
      RowBox[{"Identity", "[", "0", "]"}], ",", "a"}], "]"}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{"u", ",", "x"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{"a", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{"a", "^", "2"}], ",", "1"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.5098474835889254`*^9, {
   3.5099092953540363`*^9, 3.5099092985832415`*^9}, {3.509909366989362*^9, 
   3.5099093682997637`*^9}, {3.509909434849481*^9, 3.509909436643484*^9}, {
   3.511224412138645*^9, 3.511224459952729*^9}, {3.5112247828212953`*^9, 
   3.5112247891081057`*^9}, {3.5153733055764923`*^9, 
   3.5153733240469246`*^9}, {3.547954326143468*^9, 3.5479543280154715`*^9}, {
   3.5697223300603857`*^9, 3.5697223511104155`*^9}, {3.569722608950776*^9, 
   3.5697226621508503`*^9}, {3.569722696930899*^9, 3.569722791651032*^9}, 
   3.5697228269610815`*^9, {3.5697232885817275`*^9, 3.5697232947917366`*^9}, {
   3.569723401601886*^9, 3.569723431821928*^9}, 3.5697803025272713`*^9, {
   3.5697803426773276`*^9, 3.5697804147674284`*^9}, {3.569781013043267*^9, 
   3.5697810147632694`*^9}, {3.5697811172334127`*^9, 3.569781138153442*^9}, {
   3.56978150825646*^9, 3.569781514266468*^9}, {3.5697817257667646`*^9, 
   3.569781739066783*^9}, {3.6480633387021656`*^9, 3.64806334209336*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"a_", "*", "u_"}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", 
  "  ", 
  RowBox[{
   RowBox[{"a", "*", 
    RowBox[{"Int", "[", 
     RowBox[{"u", ",", "x"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{"a", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"MatchQ", "[", 
      RowBox[{"u", ",", " ", 
       RowBox[{
        RowBox[{"b_", "*", "v_"}], " ", "/;", " ", 
        RowBox[{"FreeQ", "[", 
         RowBox[{"b", ",", "x"}], "]"}]}]}], "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.4965289767239976`*^9, 3.4965290568841095`*^9, {
   3.53220975020393*^9, 3.5322097507839303`*^9}, {3.5322098722241*^9, 
   3.5322100286443195`*^9}, {3.532210551465051*^9, 3.532210633755166*^9}, {
   3.5322111892559443`*^9, 3.532211191445947*^9}, {3.542248756312096*^9, 
   3.542248791646158*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{Cell[TextData[StyleBox["5:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{"a", " ", "u"}]}]}], "+", 
  RowBox[{"b", " ", "v"}], "+", 
  RowBox[{"\[CenterEllipsis]", 
   RowBox[{"\[DifferentialD]", "x"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.5192504337891226`*^9, 3.5192504436696877`*^9}, {3.519320736057986*^9, 
   3.5193207456364026`*^9}, {3.5193282921909866`*^9, 
   3.5193283252786446`*^9}, {3.5193283634207115`*^9, 
   3.5193283676639194`*^9}, {3.5193286295571795`*^9, 
   3.5193286611160345`*^9}, {3.519341560355774*^9, 3.5193415713849936`*^9}, {
   3.5193514022902384`*^9, 3.5193514024302387`*^9}, {3.5194037903190413`*^9, 
   3.519403790599057*^9}, 3.51941073361316*^9, 3.5196771044605494`*^9, {
   3.5233155369029784`*^9, 3.5233155369029784`*^9}, 3.5239204146855583`*^9, 
   3.5239297857543354`*^9, 3.5239298325544176`*^9, {3.5295295115325623`*^9, 
   3.5295295118445625`*^9}, 3.5322095331836257`*^9, {3.532209639313774*^9, 
   3.5322096395437746`*^9}, 3.532209675733825*^9, 3.5367734224769645`*^9, {
   3.5367737542914314`*^9, 3.5367737900414815`*^9}, {3.5367741692620125`*^9, 
   3.536774169762013*^9}, {3.536774225682091*^9, 3.536774238422109*^9}, {
   3.5367969812085967`*^9, 3.536796981508597*^9}, {3.5368539900643992`*^9, 
   3.536854011764037*^9}, {3.53685413289505*^9, 3.5368541402738633`*^9}, {
   3.536858984573945*^9, 3.5368589888171525`*^9}, {3.536859124755791*^9, 
   3.536859131557403*^9}, {3.571333147412409*^9, 3.57133314847241*^9}, {
   3.6532585044569216`*^9, 3.653258504666922*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.02.2, 2.111.1  CRC 2, 4, 23, 27", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496527241881569*^9, 3.496527701892213*^9, {3.5367744493024044`*^9, 
   3.5367745299825172`*^9}, {3.5367745893226004`*^9, 
   3.5367745986926136`*^9}, {3.536774766982849*^9, 3.5367748106629105`*^9}, 
   3.5367753202536235`*^9}],

Cell["\<\
Note: By actually integrating linear power of x terms, this rule eliminates \
numerous trivial integration steps. \
\>", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496527241881569*^9, 3.496527701892213*^9, {3.5367742958921895`*^9, 
   3.5367743430522556`*^9}, {3.5368542567280674`*^9, 
   3.5368544244595623`*^9}, {3.5368546885836263`*^9, 3.536854722763286*^9}, {
   3.536859071107297*^9, 3.536859072433299*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.4965273487817183`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{"a", " ", "u"}]}], "+", 
  RowBox[{"b", " ", "v"}], "+", 
  RowBox[{"\[CenterEllipsis]", 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "a"}]}], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{"u", 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "+", 
  RowBox[{"b", " ", 
   RowBox[{"\[Integral]", 
    RowBox[{"v", 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "+", 
  "\[CenterEllipsis]"}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.4965272660216026`*^9, 3.4965272896916356`*^9}, {
   3.496527324581684*^9, 3.4965273395617056`*^9}, {3.4965277565922894`*^9, 
   3.496527769922308*^9}, 3.5367735030570774`*^9, {3.53677383183154*^9, 
   3.5367738674015894`*^9}, {3.5367741201319437`*^9, 3.536774162442003*^9}, 
   3.536774245702119*^9, {3.536854020406452*^9, 3.5368540537093115`*^9}, {
   3.5368541552498894`*^9, 3.53685420089557*^9}, 3.5368542339832277`*^9, {
   3.5368591489826336`*^9, 3.5368591652222624`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{"TrueQ", "[", "$LoadShowSteps", "]"}], ",", "\n", "\n", 
   RowBox[{
    RowBox[{"Int", "[", 
     RowBox[{"u_", ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
    RowBox[{
     RowBox[{"ShowStep", "[", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<Int[a*u + b*v + \[CenterEllipsis],x]\>\"", ",", 
       "\"\<a*Integrate[u,x] + b*Integrate[v,x] + \[CenterEllipsis]\>\"", ",", 
       RowBox[{"Hold", "[", "\n", "  ", 
        RowBox[{"IntSum", "[", 
         RowBox[{"u", ",", "x"}], "]"}], "]"}]}], "]"}], " ", "/;", "\n", 
     RowBox[{"SimplifyFlag", " ", "&&", " ", 
      RowBox[{"SumQ", "[", "u", "]"}]}]}]}], ",", "\n", "\n", 
   RowBox[{
    RowBox[{"Int", "[", 
     RowBox[{"u_", ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
    RowBox[{
     RowBox[{"IntSum", "[", 
      RowBox[{"u", ",", "x"}], "]"}], " ", "/;", "\n", 
     RowBox[{"SumQ", "[", "u", "]"}]}]}]}], "]"}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.495839738475589*^9, {3.495847447414795*^9, 3.495847461014814*^9}, {
   3.495847680375121*^9, 3.495847685125128*^9}, {3.49584821538587*^9, 
   3.4958482530659227`*^9}, {3.495925783351822*^9, 3.495925798141842*^9}, 
   3.4959264325827303`*^9, 3.4961847332548804`*^9, 3.4961856211761236`*^9, 
   3.4961857524563074`*^9, 3.4961888697006717`*^9, {3.496189019480881*^9, 
   3.496189021540884*^9}, {3.4961919496576166`*^9, 3.49619195243762*^9}, 
   3.4961920507377577`*^9, {3.496194537381239*^9, 3.4961945593012695`*^9}, 
   3.4961949167617702`*^9, {3.496195187392149*^9, 3.496195188822151*^9}, {
   3.496252496515678*^9, 3.4962524974556794`*^9}, 3.4966189526582503`*^9, {
   3.496619798809435*^9, 3.496619812719455*^9}, 3.4966198441694984`*^9, 
   3.4966256514887986`*^9, {3.4966262458654423`*^9, 3.4966262560054607`*^9}, {
   3.4966263267047844`*^9, 3.496626336236401*^9}, {3.4966264116157336`*^9, 
   3.496626424314156*^9}, 3.4966266585953674`*^9, {3.496626726034286*^9, 
   3.496626739107109*^9}, 3.496626974495922*^9, {3.5368528402487793`*^9, 
   3.536853060318366*^9}, {3.5368531687541566`*^9, 3.536853197442607*^9}, {
   3.5368532879695663`*^9, 3.5368533302144403`*^9}, {3.536853369370509*^9, 
   3.5368534136121864`*^9}, {3.5368534771510983`*^9, 
   3.5368535017679415`*^9}, {3.5368545530505877`*^9, 3.536854585249045*^9}, {
   3.5368592098539405`*^9, 3.536859267184041*^9}, 3.7355892629347677`*^9, 
   3.7356005440040417`*^9, 3.7375039621856933`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["6:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", " ", "x"}], ")"}], "m"], 
    RowBox[{"(", 
     RowBox[{"u", "+", "v", "+", "\[CenterEllipsis]"}], ")"}], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.5192504337891226`*^9, 3.5192504436696877`*^9}, {3.519320736057986*^9, 
   3.5193207456364026`*^9}, {3.5193282921909866`*^9, 
   3.5193283252786446`*^9}, {3.5193283634207115`*^9, 
   3.5193283676639194`*^9}, {3.5193286295571795`*^9, 
   3.5193286611160345`*^9}, {3.519341560355774*^9, 3.5193415713849936`*^9}, {
   3.5193514022902384`*^9, 3.5193514024302387`*^9}, {3.5194037903190413`*^9, 
   3.519403790599057*^9}, 3.51941073361316*^9, 3.5196771044605494`*^9, {
   3.5233155369029784`*^9, 3.5233155369029784`*^9}, 3.5239204146855583`*^9, 
   3.5239297857543354`*^9, 3.5239298325544176`*^9, {3.5295295115325623`*^9, 
   3.5295295118445625`*^9}, 3.5322095331836257`*^9, {3.532209639313774*^9, 
   3.5322096395437746`*^9}, 3.532209675733825*^9, 3.5367734224769645`*^9, {
   3.5367737542914314`*^9, 3.5367737900414815`*^9}, {3.5367741692620125`*^9, 
   3.536774169762013*^9}, {3.536774225682091*^9, 3.536774238422109*^9}, {
   3.5367969812085967`*^9, 3.536796981508597*^9}, {3.5368539900643992`*^9, 
   3.536854011764037*^9}, {3.53685413289505*^9, 3.5368541402738633`*^9}, {
   3.536858984573945*^9, 3.5368589888171525`*^9}, {3.536859124755791*^9, 
   3.536859131557403*^9}, {3.571333147412409*^9, 3.57133314847241*^9}, {
   3.613281140572364*^9, 3.6132811854224267`*^9}, {3.6132823568740664`*^9, 
   3.61328235928407*^9}, {3.6133303758204246`*^9, 3.613330376520426*^9}, {
   3.6532585066669245`*^9, 3.6532585068769255`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496527241881569*^9, 3.496527701892213*^9, {3.5367744493024044`*^9, 
   3.5367745299825172`*^9}, {3.5367745893226004`*^9, 
   3.5367745986926136`*^9}, {3.536774766982849*^9, 3.5367748106629105`*^9}, 
   3.5367753202536235`*^9, {3.6132812004324474`*^9, 3.6132812097024603`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.4965273487817183`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", " ", "x"}], ")"}], "m"], 
    RowBox[{"(", 
     RowBox[{"u", "+", "v", "+", "\[CenterEllipsis]"}], ")"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      RowBox[{"\[Integral]", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"c", " ", "x"}], ")"}], "m"], "u"}]}]}]}]}]}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", " ", "x"}], ")"}], "m"], "v"}], "+", 
  RowBox[{"\[CenterEllipsis]", 
   RowBox[{"\[DifferentialD]", "x"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.4965272660216026`*^9, 3.4965272896916356`*^9}, {
   3.496527324581684*^9, 3.4965273395617056`*^9}, {3.4965277565922894`*^9, 
   3.496527769922308*^9}, 3.5367735030570774`*^9, {3.53677383183154*^9, 
   3.5367738674015894`*^9}, {3.5367741201319437`*^9, 3.536774162442003*^9}, 
   3.536774245702119*^9, {3.536854020406452*^9, 3.5368540537093115`*^9}, {
   3.5368541552498894`*^9, 3.53685420089557*^9}, 3.5368542339832277`*^9, {
   3.5368591489826336`*^9, 3.5368591652222624`*^9}, {3.6132822947139797`*^9, 
   3.613282382418105*^9}, {3.613282483618246*^9, 3.6132824921982584`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "*", "x_"}], ")"}], "^", "m_."}], "*", "u_"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"ExpandIntegrand", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "*", "x"}], ")"}], "^", "m"}], "*", "u"}], ",", "x"}], 
      "]"}], ",", "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "m"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"SumQ", "[", "u", "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"LinearQ", "[", 
      RowBox[{"u", ",", "x"}], "]"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"MatchQ", "[", 
      RowBox[{"u", ",", 
       RowBox[{
        RowBox[{"a_", "+", 
         RowBox[{"b_.", "*", "v_"}]}], " ", "/;", " ", 
        RowBox[{
         RowBox[{"FreeQ", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
         RowBox[{"InverseFunctionQ", "[", "v", "]"}]}]}]}], "]"}], 
     "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.495839738475589*^9, {3.495847447414795*^9, 3.495847461014814*^9}, {
   3.495847680375121*^9, 3.495847685125128*^9}, {3.49584821538587*^9, 
   3.4958482530659227`*^9}, {3.495925783351822*^9, 3.495925798141842*^9}, 
   3.4959264325827303`*^9, 3.4961847332548804`*^9, 3.4961856211761236`*^9, 
   3.4961857524563074`*^9, 3.4961888697006717`*^9, {3.496189019480881*^9, 
   3.496189021540884*^9}, {3.4961919496576166`*^9, 3.49619195243762*^9}, 
   3.4961920507377577`*^9, {3.496194537381239*^9, 3.4961945593012695`*^9}, 
   3.4961949167617702`*^9, {3.496195187392149*^9, 3.496195188822151*^9}, {
   3.496252496515678*^9, 3.4962524974556794`*^9}, 3.4966189526582503`*^9, {
   3.496619798809435*^9, 3.496619812719455*^9}, 3.4966198441694984`*^9, 
   3.4966256514887986`*^9, {3.4966262458654423`*^9, 3.4966262560054607`*^9}, {
   3.4966263267047844`*^9, 3.496626336236401*^9}, {3.4966264116157336`*^9, 
   3.496626424314156*^9}, 3.4966266585953674`*^9, {3.496626726034286*^9, 
   3.496626739107109*^9}, 3.496626974495922*^9, {3.5368528402487793`*^9, 
   3.536853060318366*^9}, {3.5368531687541566`*^9, 3.536853197442607*^9}, {
   3.5368532879695663`*^9, 3.5368533302144403`*^9}, {3.536853369370509*^9, 
   3.5368534136121864`*^9}, {3.5368534771510983`*^9, 
   3.5368535017679415`*^9}, {3.5368545530505877`*^9, 3.536854585249045*^9}, {
   3.5368592098539405`*^9, 3.536859267184041*^9}, {3.613281227312485*^9, 
   3.6132813219426174`*^9}, {3.6132824101681433`*^9, 
   3.6132824529282036`*^9}, {3.6133302874103007`*^9, 3.613330310190333*^9}, {
   3.613538307218233*^9, 3.613538472398465*^9}, {3.6135385590005884`*^9, 
   3.6135385633505945`*^9}, {3.6135386861607666`*^9, 
   3.6135387001207857`*^9}, {3.613540341359516*^9, 3.6135403509895296`*^9}, {
   3.706753113229245*^9, 3.7067531215497212`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["7.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{"u", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", " ", "v"}], ")"}], "m"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", "v"}], ")"}], "n"], "\[CenterEllipsis]", 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9, 
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9, 
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9, 
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9, 
   3.5330827218568287`*^9}, {3.5368634501889877`*^9, 
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9, 
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9, 
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, 
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9, 
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9, 
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9, 
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454238599089427`*^9, 
   3.5454238602689433`*^9}, 3.5454965482568398`*^9, {3.545497042817532*^9, 
   3.545497042817532*^9}, {3.545497076297579*^9, 3.5454970772875805`*^9}, {
   3.545503623646745*^9, 3.5455036255667477`*^9}, {3.546105323118441*^9, 
   3.5461053352552624`*^9}, {3.5463150330395956`*^9, 3.546315033228606*^9}, {
   3.5634065687243795`*^9, 3.563406570524382*^9}, {3.5634118067398615`*^9, 
   3.5634118067398615`*^9}, 3.563411845427929*^9, {3.5968554479439635`*^9, 
   3.5968554522739697`*^9}, {3.602008630944951*^9, 3.602008661074993*^9}, {
   3.602009283705865*^9, 3.6020092840458655`*^9}, {3.602009314885909*^9, 
   3.6020093289159284`*^9}, {3.6133303859904385`*^9, 3.613330386190439*^9}, {
   3.653258529216956*^9, 3.653258529416957*^9}, {3.701052686160754*^9, 
   3.701052686361766*^9}, 3.740192354748659*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{"u", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        SuperscriptBox["x", "n"]}], ")"}], "m"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9, 
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9, 
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9}, 
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9, 
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9}, 
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9, 
   3.5403192458899937`*^9}, {3.5403196532852955`*^9, 
   3.5403196542853527`*^9}, {3.5404234472634363`*^9, 
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9, 
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, 
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9, 
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9, 
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9, 
   3.5454155892399735`*^9}, {3.545415619784827*^9, 3.5454156634961042`*^9}, 
   3.5454967587771344`*^9, {3.5461251637537785`*^9, 3.54612516456378*^9}, 
   3.5461253929840994`*^9, {3.546214618327402*^9, 3.5462146288774166`*^9}, {
   3.54731553719248*^9, 3.547315538735568*^9}, {3.547315667657942*^9, 
   3.547315668602996*^9}, 3.5473169596018367`*^9, {3.547317005052437*^9, 
   3.547317005052437*^9}, 3.563406579144394*^9, {3.5634118068802614`*^9, 
   3.5634118068958616`*^9}, 3.563411850919139*^9, 3.5968555177340612`*^9, 
   3.596855645954241*^9, {3.602008665174999*^9, 3.6020086654449997`*^9}, 
   3.6020087030750523`*^9, 3.6020103534373627`*^9, {3.602010809158001*^9, 
   3.6020108282980275`*^9}, {3.6020254507151566`*^9, 
   3.6020254507151566`*^9}, {3.602027088559492*^9, 3.602027113539527*^9}, {
   3.60202719410964*^9, 3.6020272139196677`*^9}, {3.731213847446804*^9, 
   3.7312138661758757`*^9}, {3.7312140121782265`*^9, 
   3.7312140303312645`*^9}, {3.731214197355818*^9, 3.7312141978298445`*^9}, {
   3.740192341397896*^9, 3.7401923676913996`*^9}, {3.7402403407623053`*^9, 
   3.7402403407623053`*^9}, 3.7402419334627028`*^9, {3.7403296122051735`*^9, 
   3.7403296251199403`*^9}, {3.740349118546707*^9, 3.7403491239390154`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4983206021865325`*^9, {3.498326040356801*^9, 3.498326049592017*^9}, {
   3.4983263025932617`*^9, 3.498326308365272*^9}, {3.510260940930415*^9, 
   3.51026094460042*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        SuperscriptBox["x", "n"]}], ")"}], "m"], 
     SuperscriptBox["x", 
      RowBox[{"m", " ", "n"}]]]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980704431694036`*^9, {
   3.498320837060545*^9, 3.4983208718174057`*^9}, 3.4983264799655733`*^9, {
   3.4983265293864603`*^9, 3.4983265518504996`*^9}, {3.510260868510313*^9, 
   3.510260895210351*^9}, {3.5102609859104776`*^9, 3.5102609865504785`*^9}, {
   3.511714714700369*^9, 3.5117147350740047`*^9}, {3.5117152169432507`*^9, 
   3.5117152315916767`*^9}, {3.5117561659742937`*^9, 
   3.5117561659742937`*^9}, {3.5118185923538933`*^9, 
   3.5118186314339476`*^9}, {3.511818664503994*^9, 3.5118186916940317`*^9}, 
   3.5145721515462685`*^9, {3.545415611111212*^9, 3.545415612296814*^9}, {
   3.5454156443548703`*^9, 3.5454156450100718`*^9}, {3.54612527918394*^9, 
   3.54612529305396*^9}, {3.546125371024069*^9, 3.546125374674074*^9}, {
   3.5622930416578875`*^9, 3.562293044597892*^9}, {3.5634175889944005`*^9, 
   3.5634175889944005`*^9}, {3.596855519174063*^9, 3.596855519174063*^9}, {
   3.5968559823647118`*^9, 3.5968559829347124`*^9}, {3.6020104573875084`*^9, 
   3.6020104573875084`*^9}, {3.602011219948576*^9, 3.602011222418579*^9}, {
   3.6020255309552717`*^9, 3.6020255431052885`*^9}, {3.731213981928496*^9, 
   3.731213981928496*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9, 
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9, 
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.500345120088499*^9, 
   3.500345127428509*^9}, {3.500410576940289*^9, 3.5004105779663477`*^9}, {
   3.5004106327664824`*^9, 3.500410643898119*^9}, {3.500429569940626*^9, 
   3.500429571675726*^9}, {3.502204840167862*^9, 3.502204842617066*^9}, 
   3.5023038294281306`*^9, {3.504362658868907*^9, 3.504362660078909*^9}, {
   3.50436465472136*^9, 3.5043646556213617`*^9}, {3.504839359121956*^9, 
   3.5048393791619835`*^9}, {3.504839672312394*^9, 3.5048396733523955`*^9}, 
   3.5098341584452877`*^9, {3.5101828092264166`*^9, 3.5101828193196344`*^9}, {
   3.511715292228983*^9, 3.511715334692258*^9}, {3.5117155048269134`*^9, 
   3.511715508166918*^9}, {3.5117295035766306`*^9, 3.511729505106633*^9}, {
   3.511750898236919*^9, 3.5117508991769204`*^9}, {3.5117555222533927`*^9, 
   3.5117555300634036`*^9}, {3.5118334045968*^9, 3.511833408403207*^9}, 
   3.5145720728661585`*^9, {3.514856031797722*^9, 3.5148560328117237`*^9}, {
   3.5151816617393637`*^9, 3.515181662316565*^9}, {3.545415625915638*^9, 
   3.5454156332008505`*^9}, {3.5454300704751377`*^9, 3.545430071215139*^9}, {
   3.546125159633773*^9, 3.546125160493774*^9}, {3.546214650777447*^9, 
   3.546214650777447*^9}, {3.547315700922845*^9, 3.547315700922845*^9}, {
   3.5473170462477927`*^9, 3.5473170462477927`*^9}, {3.6020107326578937`*^9, 
   3.6020107326578937`*^9}, {3.602010842968048*^9, 3.602010842968048*^9}, {
   3.602024306988515*^9, 3.6020243088435173`*^9}, {3.6020244431137104`*^9, 
   3.6020244528887243`*^9}, {3.6020273595998716`*^9, 
   3.6020273595998716`*^9}, {3.7312140645812235`*^9, 
   3.7312140645812235`*^9}, {3.740240345348714*^9, 3.740240346300315*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{"u", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", " ", 
      SuperscriptBox["x", "n"]}], ")"}], "m"], 
   RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
    FractionBox[
     RowBox[{
      SuperscriptBox["a", 
       RowBox[{"IntPart", "[", "m", "]"}]], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", " ", 
         SuperscriptBox["x", "n"]}], ")"}], 
       RowBox[{"FracPart", "[", "m", "]"}]]}], 
     SuperscriptBox["x", 
      RowBox[{"n", " ", 
       RowBox[{"FracPart", "[", "m", "]"}]}]]]}], 
   RowBox[{"\[Integral]", 
    RowBox[{"u", " ", 
     SuperscriptBox["x", 
      RowBox[{"m", " ", "n"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9, 
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9, 
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9, 
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9, 
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9, 
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9, 
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9, 
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9, 
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9, 
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.5040325720154343`*^9, 
   3.5040325776782446`*^9}, 3.505344641413784*^9, {3.5053446931638565`*^9, 
   3.505344715023887*^9}, 3.5053535547652063`*^9, {3.509472692844695*^9, 
   3.509472735704147*^9}, {3.5094728451264057`*^9, 3.509472933684471*^9}, {
   3.5098341849653344`*^9, 3.509834296848731*^9}, {3.5098343294527884`*^9, 
   3.509834364194049*^9}, 3.5098346591437674`*^9, {3.5098347856443896`*^9, 
   3.5098347898251967`*^9}, {3.5098348311028695`*^9, 
   3.5098349107098093`*^9}, {3.5098349437662673`*^9, 3.509834983374737*^9}, 
   3.5098350560552645`*^9, {3.5098351175973725`*^9, 3.509835139499811*^9}, 
   3.5098475309589915`*^9, {3.510182683146995*^9, 3.5101826880610037`*^9}, {
   3.5101828251228447`*^9, 3.5101828513152905`*^9}, {3.510182945071455*^9, 
   3.5101829454458556`*^9}, {3.511714482540761*^9, 3.5117145274688396`*^9}, {
   3.5117145862341433`*^9, 3.5117146153281946`*^9}, {3.5117147853060927`*^9, 
   3.511714803090124*^9}, {3.5117151505963345`*^9, 3.5117151632479568`*^9}, {
   3.511715744517249*^9, 3.511715747287253*^9}, {3.5118158169600077`*^9, 
   3.511815862160071*^9}, 3.511815909280137*^9, {3.5118176520325766`*^9, 
   3.5118176689026003`*^9}, 3.5118179461929884`*^9, {3.511819812927603*^9, 
   3.5118198181376104`*^9}, {3.5118198622576723`*^9, 3.511819864577675*^9}, {
   3.5145719907960434`*^9, 3.51457201659608*^9}, {3.514572326606514*^9, 
   3.514572331676521*^9}, {3.51516810299435*^9, 3.515168104974353*^9}, {
   3.546125202673833*^9, 3.5461252302438717`*^9}, {3.5634118069270616`*^9, 
   3.5634118069582615`*^9}, {3.5634118519019403`*^9, 3.5634118524323416`*^9}, 
   3.563412172970504*^9, {3.5968555202140646`*^9, 3.5968555212540665`*^9}, 
   3.596855650024246*^9, {3.59685576642441*^9, 3.5968557670244102`*^9}, 
   3.596855806694466*^9, 3.5968559528046703`*^9, {3.602008665795*^9, 
   3.602008667215002*^9}, {3.602010361607374*^9, 3.602010427267466*^9}, 
   3.602010902798132*^9, 3.6020242481734304`*^9, {3.602024290168491*^9, 
   3.602024295298498*^9}, 3.6020244836837683`*^9, {3.602027371979889*^9, 
   3.602027382729904*^9}, {3.6020274322199736`*^9, 3.6020274352099776`*^9}, {
   3.731213947853547*^9, 3.7312139691797667`*^9}, 3.7312140752798357`*^9, {
   3.73121468378564*^9, 3.731214716935536*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.5968560478048034`*^9, 3.5968560671348305`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"u_.", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", 
        RowBox[{"x_", "^", "n_"}]}], ")"}], "^", "m_"}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"a", "^", 
     RowBox[{"IntPart", "[", "m", "]"}]}], "*", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "*", 
        RowBox[{"x", "^", "n"}]}], ")"}], "^", 
      RowBox[{"FracPart", "[", "m", "]"}]}], "/", 
     RowBox[{"x", "^", 
      RowBox[{"(", 
       RowBox[{"n", "*", 
        RowBox[{"FracPart", "[", "m", "]"}]}], ")"}]}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{"u", "*", 
       RowBox[{"x", "^", 
        RowBox[{"(", 
         RowBox[{"m", "*", "n"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "m", ",", "n"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "m", "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9, 
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9, 
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9}, 
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9, 
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9}, 
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9, 
   3.4992127382126956`*^9}, {3.4992128038327875`*^9, 
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9, 
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9, 
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9, 
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9}, 
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9}, 
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9, 
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9, 
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9, 
   3.5010431675511227`*^9}, {3.5013560814295626`*^9, 
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9, 
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9}, 
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9}, 
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9, 
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9}, 
   3.5027656584730268`*^9, 3.5027671152479863`*^9, {3.5030718189880323`*^9, 
   3.5030718291780467`*^9}, 3.5038761961479836`*^9, {3.504156546965613*^9, 
   3.504156548322815*^9}, {3.5042968954456654`*^9, 3.5042969168056955`*^9}, {
   3.5051010426366124`*^9, 3.505101050326623*^9}, 3.5053446414337845`*^9, {
   3.5053446931938567`*^9, 3.505344715043887*^9}, 3.50535355708521*^9, {
   3.509473076633647*^9, 3.509473117827003*^9}, 3.509473221522934*^9, {
   3.5094732830534534`*^9, 3.509473292318983*^9}, {3.5094751195374947`*^9, 
   3.5094751247597933`*^9}, 3.5098352718192434`*^9, {3.509835307137706*^9, 
   3.5098353487273784`*^9}, {3.509847535218998*^9, 3.5098475613690343`*^9}, {
   3.5101827112582445`*^9, 3.510182715657452*^9}, {3.510182781661168*^9, 
   3.5101827868091774`*^9}, {3.5101830769696865`*^9, 3.510183111738948*^9}, {
   3.5101832687064238`*^9, 3.5101832709372272`*^9}, {3.511715355721095*^9, 
   3.5117153607131033`*^9}, {3.511715428066806*^9, 3.5117154599968505`*^9}, {
   3.511715511146922*^9, 3.5117155141269264`*^9}, {3.511715565286998*^9, 
   3.5117155864270277`*^9}, {3.511715750947258*^9, 3.5117157539772625`*^9}, {
   3.5117293456064095`*^9, 3.5117294275865245`*^9}, {3.5117296689768624`*^9, 
   3.5117296728068676`*^9}, {3.5117302889377303`*^9, 3.5117303011477475`*^9}, 
   3.5117466386965055`*^9, {3.511750894036913*^9, 3.511750894676914*^9}, {
   3.5117511267572393`*^9, 3.5117511307372446`*^9}, {3.5117512119573584`*^9, 
   3.511751214027361*^9}, {3.511751883348298*^9, 3.5117518878683043`*^9}, {
   3.5117519413583794`*^9, 3.511751948148389*^9}, {3.5117521986187396`*^9, 
   3.511752203998747*^9}, {3.511755503353366*^9, 3.5117555064233704`*^9}, {
   3.5118335100217853`*^9, 3.5118335340614276`*^9}, 3.5145720383461103`*^9, {
   3.5145721800463085`*^9, 3.5145722335263834`*^9}, {3.5145723389965315`*^9, 
   3.5145723423365355`*^9}, {3.5145724500966864`*^9, 3.514572450266687*^9}, 
   3.516820646406448*^9, {3.5418961167530327`*^9, 3.541896117983034*^9}, {
   3.5449827397744484`*^9, 3.544982749304462*^9}, 3.5461060983374033`*^9, {
   3.5461064994141073`*^9, 3.546106521269746*^9}, 3.546106612139906*^9, 
   3.546125075313655*^9, {3.546125116593713*^9, 3.546125139913745*^9}, {
   3.5462146339374237`*^9, 3.5462146423374357`*^9}, {3.547315350968828*^9, 
   3.5473153548750515`*^9}, {3.5473156828768125`*^9, 3.547315687131056*^9}, 
   3.5473170592375355`*^9, {3.5631229771336594`*^9, 3.5631229815328665`*^9}, {
   3.5631246086173153`*^9, 3.563124620309984*^9}, {3.563126725785471*^9, 
   3.563126727675473*^9}, {3.5634118229326897`*^9, 3.56341182294829*^9}, 
   3.563411889878007*^9, {3.5634119390492935`*^9, 3.5634119861613765`*^9}, 
   3.563412037625867*^9, {3.596855522504068*^9, 3.596855524424071*^9}, {
   3.5968560480448036`*^9, 3.596856051864809*^9}, {3.5968561100448904`*^9, 
   3.5968561150448976`*^9}, {3.596856155344954*^9, 3.5968561614149623`*^9}, {
   3.5968561924850063`*^9, 3.5968561951750097`*^9}, {3.602008667915003*^9, 
   3.602008668625004*^9}, {3.6020087660151405`*^9, 3.6020087665551414`*^9}, {
   3.602009139125663*^9, 3.602009162565696*^9}, {3.602010940648185*^9, 
   3.602010952988202*^9}, {3.602010985078247*^9, 3.602011013908287*^9}, {
   3.6020110477783346`*^9, 3.6020110551183453`*^9}, {3.602011093608399*^9, 
   3.602011161578494*^9}, 3.602024253513438*^9, 3.602024536408844*^9, {
   3.602025260459883*^9, 3.6020252741049027`*^9}, 3.6020253220049715`*^9, 
   3.6020253561800203`*^9, 3.602027342609848*^9, 3.6020275567201476`*^9, {
   3.602028784191866*^9, 3.6020288065618973`*^9}, {3.602029645363072*^9, 
   3.6020296581930895`*^9}, {3.7154740330067263`*^9, 3.715474037559987*^9}, {
   3.731213893800455*^9, 3.731213910244396*^9}, {3.731214100584283*^9, 
   3.7312141195653687`*^9}, 3.7312141580935717`*^9, 3.7312147611400642`*^9, 
   3.731350946748465*^9, {3.7401921552690496`*^9, 3.7401921588570557`*^9}, {
   3.740329597253318*^9, 3.740329601710573*^9}, {3.740335203767739*^9, 
   3.740335210647351*^9}, {3.7403490940993085`*^9, 3.7403490987515745`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{"u", " ", 
     SuperscriptBox["v", "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", "v"}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9, 
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9, 
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9}, 
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9, 
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9}, 
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9, 
   3.5403192458899937`*^9}, {3.5403196532852955`*^9, 
   3.5403196542853527`*^9}, {3.5404234472634363`*^9, 
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9, 
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, 
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9, 
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9, 
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9, 
   3.5454155892399735`*^9}, 3.5454965509668436`*^9, 3.545496757657133*^9, 
   3.545496990437459*^9, {3.546125024823584*^9, 3.546125025683585*^9}, 
   3.546125194843822*^9, 3.563406571754384*^9, {3.563411806755461*^9, 
   3.563411806771061*^9}, 3.5634118461143303`*^9, 3.59685546657399*^9, {
   3.6020086615449944`*^9, 3.6020086619149947`*^9}, 3.602008697335044*^9, {
   3.6020093454959517`*^9, 3.60200935854597*^9}, {3.740192380416127*^9, 
   3.740192381182171*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic simplification", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9, 
   3.497662798718403*^9}, {3.5144736871714077`*^9, 3.5144736908686147`*^9}}],

Cell[TextData[{
 "Basis: If  ",
 Cell[BoxData[
  RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox["v", "m"], "\[Equal]", 
   RowBox[{
    FractionBox["1", 
     SuperscriptBox["b", "m"]], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", "v"}], ")"}], "m"]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9, {
   3.498790415276228*^9, 3.498790427132249*^9}, {3.498790625383397*^9, 
   3.4987906379882193`*^9}, {3.49879077484726*^9, 3.498790863190215*^9}, {
   3.498790896340273*^9, 3.4987909105986986`*^9}, {3.498790950597169*^9, 
   3.498790974777211*^9}, {3.4987918281347103`*^9, 3.4987918299755135`*^9}, 
   3.498791908272051*^9, {3.533927483686059*^9, 3.5339274888460665`*^9}, {
   3.533927974586746*^9, 3.533928016366805*^9}, {3.5350836809369655`*^9, 
   3.5350836809369655`*^9}, {3.535083752607066*^9, 3.535083785197111*^9}, {
   3.5353830912736144`*^9, 3.5353830912736144`*^9}, {3.53538313131367*^9, 
   3.5353831563137054`*^9}, {3.535383228463806*^9, 3.535383228463806*^9}, {
   3.5353832798938785`*^9, 3.5353832798938785`*^9}, {3.535383471164146*^9, 
   3.5353834957441807`*^9}, {3.535383528764227*^9, 3.535383535534236*^9}, {
   3.5353836326143723`*^9, 3.5353836336343737`*^9}, {3.602009463656117*^9, 
   3.6020095097161818`*^9}, {3.602009557986249*^9, 3.602009576706275*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9, 
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9, 
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9, 
   3.5004320093321514`*^9}, {3.5013559257793446`*^9, 
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9, 
   3.5026762588802133`*^9}, {3.5026784726933126`*^9, 
   3.5026784726933126`*^9}, {3.5027658552205725`*^9, 
   3.5027658552205725`*^9}, {3.5027672224669743`*^9, 
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.503812941222491*^9, {
   3.5040286741277885`*^9, 3.50402867512619*^9}, 3.504031838526546*^9, 
   3.504311148611575*^9, {3.504764105847949*^9, 3.5047641154079623`*^9}, {
   3.5047641477280073`*^9, 3.504764147948008*^9}, 3.505005742172364*^9, {
   3.5080368114491596`*^9, 3.5080368579840417`*^9}, 3.5080374691155157`*^9, {
   3.5105233710346155`*^9, 3.510523371184616*^9}, {3.5105252878872995`*^9, 
   3.510525294107308*^9}, {3.51052584282408*^9, 3.51052584282408*^9}, {
   3.510788027396412*^9, 3.510788030076415*^9}, {3.5107882657767453`*^9, 
   3.5107883208568225`*^9}, {3.510789664430705*^9, 3.5107896743807187`*^9}, 
   3.510790463911824*^9, {3.510790613852034*^9, 3.5107906179920397`*^9}, {
   3.510813336637003*^9, 3.510813336637003*^9}, {3.5108459293657985`*^9, 
   3.5108459592866507`*^9}, {3.5139582932649612`*^9, 
   3.5139582932649612`*^9}, {3.5144735590171833`*^9, 3.514473561965588*^9}, {
   3.5144737101346483`*^9, 3.514473715157857*^9}, {3.514473763190342*^9, 
   3.514473764578744*^9}, {3.514496474085927*^9, 3.514496484855942*^9}, {
   3.5148560276013145`*^9, 3.514856028942917*^9}, {3.515181654360551*^9, 
   3.5151816552341523`*^9}, {3.5454155814555597`*^9, 3.545415582563162*^9}, {
   3.545430066735132*^9, 3.545430067215133*^9}, {3.546125031993594*^9, 
   3.546125032823595*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{"u", " ", 
   SuperscriptBox["v", "m"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", "v"}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", 
      SuperscriptBox["b", "m"]]}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{"u", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", "v"}], ")"}], 
      RowBox[{"m", "+", "n"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9, 
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9, 
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9, 
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9, 
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9, 
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9, 
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9, 
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9, 
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9, 
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.503710177051952*^9, 
   3.503710199091983*^9}, {3.503710750612755*^9, 3.5037107533527584`*^9}, {
   3.5038127194681015`*^9, 3.503812750902157*^9}, {3.503812801680246*^9, 
   3.503812802335447*^9}, {3.5047496671454835`*^9, 3.504749688715514*^9}, {
   3.504749718855556*^9, 3.50474975738561*^9}, {3.5047638556975985`*^9, 
   3.504763901217663*^9}, {3.508036862352049*^9, 3.5080368741144695`*^9}, {
   3.5080369099321327`*^9, 3.5080369437529917`*^9}, {3.5080372899175997`*^9, 
   3.5080373156732454`*^9}, {3.5105229603279085`*^9, 3.510522986598355*^9}, {
   3.51052302367962*^9, 3.5105231196509886`*^9}, {3.510523163455866*^9, 
   3.5105231707566786`*^9}, {3.510524911966773*^9, 3.510524925296792*^9}, {
   3.510525184087154*^9, 3.510525188787161*^9}, {3.510787470405632*^9, 
   3.5107874992156725`*^9}, {3.510788066946467*^9, 3.5107880746864777`*^9}, {
   3.510788210246668*^9, 3.510788212636671*^9}, {3.510788384636912*^9, 
   3.5107883946369257`*^9}, {3.5107885351071224`*^9, 
   3.5107885379071264`*^9}, {3.5107893359082437`*^9, 3.5107893412382507`*^9}, 
   3.5107893780883026`*^9, 3.510845655897318*^9, {3.5144732957199206`*^9, 
   3.514473295938321*^9}, {3.5144733271383758`*^9, 3.514473389632086*^9}, {
   3.5144734208321404`*^9, 3.514473425184548*^9}, {3.514473474153034*^9, 
   3.514473504229887*^9}, {3.5151680954543395`*^9, 3.5151680980343432`*^9}, {
   3.5461251777937984`*^9, 3.546125187183811*^9}, {3.5461254243441434`*^9, 
   3.5461254246941442`*^9}, {3.5634118068022614`*^9, 
   3.5634118068022614`*^9}, {3.563411846956732*^9, 3.5634118750423813`*^9}, {
   3.596855471243996*^9, 3.5968554811740103`*^9}, {3.602008662274995*^9, 
   3.602008662924996*^9}, {3.602009372175989*^9, 3.602009385406008*^9}, 
   3.6020094181560535`*^9, {3.6020242572134438`*^9, 3.602024262578451*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"u_.", "*", 
     RowBox[{"v_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_", "*", "v_"}], ")"}], "^", "n_"}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"b", "^", "m"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{"u", "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "*", "v"}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"m", "+", "n"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "n"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "m", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9, 
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9, 
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9}, 
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9, 
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9}, 
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9, 
   3.4992127382126956`*^9}, {3.4992128038327875`*^9, 
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9, 
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9, 
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9, 
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9}, 
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9}, 
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9, 
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9, 
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9, 
   3.5010431675511227`*^9}, {3.5013560814295626`*^9, 
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9, 
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9}, 
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9}, 
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9, 
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9}, 
   3.5027656584730268`*^9, 3.5027671152479863`*^9, {3.5030718189880323`*^9, 
   3.5030718291780467`*^9}, 3.5037104243322983`*^9, {3.5037104552623415`*^9, 
   3.503710552022477*^9}, {3.503710643442605*^9, 3.5037106540026197`*^9}, {
   3.50371079008281*^9, 3.503710799252823*^9}, 3.503711336573575*^9, 
   3.503812879274782*^9, 3.503812944763697*^9, {3.5047499105558243`*^9, 
   3.5047499251058445`*^9}, 3.504749962655897*^9, 3.50475000012595*^9, {
   3.5047639369577127`*^9, 3.5047639996578007`*^9}, {3.508012492437707*^9, 
   3.5080125039037275`*^9}, {3.50803744317267*^9, 3.5080375004559703`*^9}, {
   3.5080380525409403`*^9, 3.508038060340954*^9}, {3.510523241955203*^9, 
   3.5105233462245812`*^9}, {3.5105249344968047`*^9, 
   3.5105249997668962`*^9}, {3.510525218367202*^9, 3.510525225307212*^9}, 
   3.5105258453340836`*^9, 3.5105261705445385`*^9, 3.5105287370781317`*^9, {
   3.510787941316291*^9, 3.5107879840363507`*^9}, {3.510788306106802*^9, 
   3.5107883445268555`*^9}, {3.510788495777067*^9, 3.510788532967119*^9}, {
   3.5107885649971647`*^9, 3.5107885715471735`*^9}, {3.5107893516982656`*^9, 
   3.510789366068286*^9}, {3.5107896328306603`*^9, 3.5107896399606705`*^9}, {
   3.5107898766310015`*^9, 3.510789877641003*^9}, {3.5107904722018356`*^9, 
   3.5107904864718556`*^9}, {3.5107906016920166`*^9, 3.5107906035620193`*^9}, 
   3.5108133336573973`*^9, {3.510813433138772*^9, 3.5108134492536*^9}, {
   3.5108135037444963`*^9, 3.510813509516506*^9}, {3.510813560575396*^9, 
   3.5108135638826017`*^9}, {3.5108452158985453`*^9, 
   3.5108453343027534`*^9}, {3.5108456732445483`*^9, 
   3.5108456896245775`*^9}, {3.510845924108589*^9, 3.510845925356591*^9}, 
   3.5139582753849363`*^9, {3.5144735757092123`*^9, 3.5144736765009894`*^9}, {
   3.514473929112233*^9, 3.5144739317798376`*^9}, {3.514474664049924*^9, 
   3.5144746883547664`*^9}, {3.514474786463339*^9, 3.514474821750601*^9}, {
   3.514480701215327*^9, 3.514480722275364*^9}, {3.5144826692469826`*^9, 
   3.5144826753933935`*^9}, {3.514482761427544*^9, 3.514482763127947*^9}, {
   3.5144839879328985`*^9, 3.514484001598522*^9}, {3.5144840432037954`*^9, 
   3.514484047774604*^9}, {3.514484851062791*^9, 3.5144848577428007`*^9}, {
   3.514493953352398*^9, 3.5144939967024584`*^9}, {3.514494454233099*^9, 
   3.5144944881731462`*^9}, 3.5144963454557467`*^9, {3.5145667215746603`*^9, 
   3.5145667230846624`*^9}, {3.5145668019447727`*^9, 
   3.5145668201047983`*^9}, {3.514566854734847*^9, 3.5145668560148487`*^9}, 
   3.516821193357214*^9, {3.541896074432973*^9, 3.5418960757629747`*^9}, {
   3.5449827290444336`*^9, 3.544982734904442*^9}, 3.546106521254146*^9, {
   3.5461250507836204`*^9, 3.546125089773675*^9}, 3.563123038535367*^9, 
   3.5634118229170895`*^9, 3.563411889862407*^9, {3.5634119390024934`*^9, 
   3.5634119861457763`*^9}, 3.5634120362998643`*^9, {3.596855507564047*^9, 
   3.596855510174051*^9}, 3.59707194738449*^9, 3.6020086632749968`*^9, {
   3.6020087643751383`*^9, 3.6020087652951393`*^9}, {3.6020088025551915`*^9, 
   3.6020088083152*^9}, {3.6020089299253697`*^9, 3.6020089324753733`*^9}, {
   3.6020090563055468`*^9, 3.602009073705571*^9}, {3.60200961586633*^9, 
   3.602009719276475*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["3.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{"u", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", "v"}], ")"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", "v"}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
       "\[And]", " ", 
       RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.4965117206885777`*^9, 3.5192471175756674`*^9, {3.5192587973599553`*^9, 
   3.5192588081399703`*^9}, {3.519321495105319*^9, 3.5193214991925263`*^9}, 
   3.5193247857072587`*^9, {3.5194051897010813`*^9, 3.5194051902791147`*^9}, {
   3.5194055551249824`*^9, 3.5194055708408813`*^9}, {3.519405711316916*^9, 
   3.51940572904193*^9}, {3.519410772192028*^9, 3.5194107776364374`*^9}, {
   3.519413782484516*^9, 3.519413782827717*^9}, {3.519767588664174*^9, 
   3.519767611128214*^9}, {3.5197937941314034`*^9, 3.519793794568204*^9}, {
   3.5197947626591043`*^9, 3.519794764749508*^9}, {3.519794865354085*^9, 
   3.519794874355301*^9}, {3.523218063086026*^9, 3.523218070356036*^9}, {
   3.523316514684347*^9, 3.523316514684347*^9}, {3.5233165475343933`*^9, 
   3.5233165475343933`*^9}, {3.5233184331871357`*^9, 
   3.5233184334271364`*^9}, {3.5273599103435545`*^9, 3.527359910608755*^9}, {
   3.5326424241029196`*^9, 3.53264242435292*^9}, {3.5326584126048727`*^9, 
   3.532658412794873*^9}, {3.532726454021428*^9, 3.5327264542814283`*^9}, {
   3.5327554047263184`*^9, 3.532755404993334*^9}, {3.532798666112293*^9, 
   3.532798676322307*^9}, {3.5328778343810363`*^9, 3.5328778343810363`*^9}, 
   3.5330758294771795`*^9, {3.5330827570868783`*^9, 3.533082757336879*^9}, {
   3.534975097668671*^9, 3.534975097888672*^9}, {3.536863459221404*^9, 
   3.536863459439804*^9}, {3.540264711953947*^9, 3.5402647253239655`*^9}, {
   3.540264783504047*^9, 3.540264783504047*^9}, {3.540502117527218*^9, 
   3.540502117997218*^9}, {3.540502551737826*^9, 3.540502551937826*^9}, {
   3.5449015667548094`*^9, 3.5449015920048447`*^9}, 3.5460201927633896`*^9, {
   3.5460203100335536`*^9, 3.5460203443436017`*^9}, {3.546020448093747*^9, 
   3.5460204510737514`*^9}, 3.5460205170338435`*^9, 3.5460207518641725`*^9, {
   3.5460226623068466`*^9, 3.5460226755968657`*^9}, {3.5460227177169247`*^9, 
   3.5460227177169247`*^9}, {3.546023707982313*^9, 3.546023708262314*^9}, {
   3.546792386446255*^9, 3.5467924010864344`*^9}, {3.546792513166156*^9, 
   3.546792513166156*^9}, {3.5468155143461714`*^9, 3.5468155145261717`*^9}, {
   3.547316201692487*^9, 3.547316219319495*^9}, {3.5473165991182184`*^9, 
   3.5473165991182184`*^9}, {3.547316771379071*^9, 3.5473167909261894`*^9}, 
   3.5473169753797393`*^9, 3.5634065730643854`*^9, {3.5634118068646617`*^9, 
   3.5634118068646617`*^9}, 3.563411850373138*^9, 3.596855515444058*^9, 
   3.5968556255842123`*^9, {3.6020086646049986`*^9, 3.6020086648949986`*^9}, 
   3.6020087016750507`*^9, 3.6020097989165864`*^9, {3.602010766647941*^9, 
   3.6020107759779544`*^9}, {3.602025461220171*^9, 3.6020254630051737`*^9}, {
   3.602026947589295*^9, 3.6020269587993107`*^9}, {3.602028724741783*^9, 
   3.602028724741783*^9}, 3.646955912689513*^9, {3.6469571262492657`*^9, 
   3.6469571382902822`*^9}, {3.740192383365296*^9, 3.7401923841113386`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{"u", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", "v"}], ")"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", "v"}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{"n", "+", 
         FractionBox["1", "2"]}], "\[Element]", 
        "\[DoubleStruckCapitalZ]"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.4965117206885777`*^9, 3.5192471175756674`*^9, {3.5192587973599553`*^9, 
   3.5192588081399703`*^9}, {3.519321495105319*^9, 3.5193214991925263`*^9}, 
   3.5193247857072587`*^9, {3.5194051897010813`*^9, 3.5194051902791147`*^9}, {
   3.5194055551249824`*^9, 3.5194055708408813`*^9}, {3.519405711316916*^9, 
   3.51940572904193*^9}, {3.519410772192028*^9, 3.5194107776364374`*^9}, {
   3.519413782484516*^9, 3.519413782827717*^9}, {3.519767588664174*^9, 
   3.519767611128214*^9}, {3.5197937941314034`*^9, 3.519793794568204*^9}, {
   3.5197947626591043`*^9, 3.519794764749508*^9}, {3.519794865354085*^9, 
   3.519794874355301*^9}, {3.523218063086026*^9, 3.523218070356036*^9}, {
   3.523316514684347*^9, 3.523316514684347*^9}, {3.5233165475343933`*^9, 
   3.5233165475343933`*^9}, {3.5233184331871357`*^9, 
   3.5233184334271364`*^9}, {3.5273599103435545`*^9, 3.527359910608755*^9}, {
   3.5326424241029196`*^9, 3.53264242435292*^9}, {3.5326584126048727`*^9, 
   3.532658412794873*^9}, {3.532726454021428*^9, 3.5327264542814283`*^9}, {
   3.5327554047263184`*^9, 3.532755404993334*^9}, {3.532798666112293*^9, 
   3.532798676322307*^9}, {3.5328778343810363`*^9, 3.5328778343810363`*^9}, 
   3.5330758294771795`*^9, {3.5330827570868783`*^9, 3.533082757336879*^9}, {
   3.534975097668671*^9, 3.534975097888672*^9}, {3.536863459221404*^9, 
   3.536863459439804*^9}, {3.540264711953947*^9, 3.5402647253239655`*^9}, {
   3.540264783504047*^9, 3.540264783504047*^9}, {3.540502117527218*^9, 
   3.540502117997218*^9}, {3.540502551737826*^9, 3.540502551937826*^9}, {
   3.5449015667548094`*^9, 3.5449015920048447`*^9}, 3.5460201927633896`*^9, {
   3.5460203100335536`*^9, 3.5460203443436017`*^9}, {3.546020448093747*^9, 
   3.5460204510737514`*^9}, 3.5460205170338435`*^9, 3.5460207518641725`*^9, {
   3.5460226623068466`*^9, 3.5460226755968657`*^9}, {3.5460227177169247`*^9, 
   3.5460227177169247`*^9}, {3.546023707982313*^9, 3.546023708262314*^9}, {
   3.546792386446255*^9, 3.5467924010864344`*^9}, {3.546792513166156*^9, 
   3.546792513166156*^9}, {3.5468155143461714`*^9, 3.5468155145261717`*^9}, {
   3.547316201692487*^9, 3.547316219319495*^9}, {3.5473165991182184`*^9, 
   3.5473165991182184`*^9}, {3.547316771379071*^9, 3.5473167909261894`*^9}, 
   3.5473169753797393`*^9, 3.5634065730643854`*^9, {3.5634118068646617`*^9, 
   3.5634118068646617`*^9}, 3.563411850373138*^9, 3.596855515444058*^9, 
   3.5968556255842123`*^9, {3.6020086646049986`*^9, 3.6020086648949986`*^9}, 
   3.6020087016750507`*^9, 3.6020097989165864`*^9, {3.602010766647941*^9, 
   3.6020107759779544`*^9}, {3.602025461220171*^9, 3.6020254630051737`*^9}, {
   3.602028777801857*^9, 3.602028780301861*^9}, {3.602029621363038*^9, 
   3.602029621613038*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{"u", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", "v"}], ")"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", "v"}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{"n", "+", 
         FractionBox["1", "2"]}], "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.4965117206885777`*^9, 3.5192471175756674`*^9, {3.5192587973599553`*^9, 
   3.5192588081399703`*^9}, {3.519321495105319*^9, 3.5193214991925263`*^9}, 
   3.5193247857072587`*^9, {3.5194051897010813`*^9, 3.5194051902791147`*^9}, {
   3.5194055551249824`*^9, 3.5194055708408813`*^9}, {3.519405711316916*^9, 
   3.51940572904193*^9}, {3.519410772192028*^9, 3.5194107776364374`*^9}, {
   3.519413782484516*^9, 3.519413782827717*^9}, {3.519767588664174*^9, 
   3.519767611128214*^9}, {3.5197937941314034`*^9, 3.519793794568204*^9}, {
   3.5197947626591043`*^9, 3.519794764749508*^9}, {3.519794865354085*^9, 
   3.519794874355301*^9}, {3.523218063086026*^9, 3.523218070356036*^9}, {
   3.523316514684347*^9, 3.523316514684347*^9}, {3.5233165475343933`*^9, 
   3.5233165475343933`*^9}, {3.5233184331871357`*^9, 
   3.5233184334271364`*^9}, {3.5273599103435545`*^9, 3.527359910608755*^9}, {
   3.5326424241029196`*^9, 3.53264242435292*^9}, {3.5326584126048727`*^9, 
   3.532658412794873*^9}, {3.532726454021428*^9, 3.5327264542814283`*^9}, {
   3.5327554047263184`*^9, 3.532755404993334*^9}, {3.532798666112293*^9, 
   3.532798676322307*^9}, {3.5328778343810363`*^9, 3.5328778343810363`*^9}, 
   3.5330758294771795`*^9, {3.5330827570868783`*^9, 3.533082757336879*^9}, {
   3.534975097668671*^9, 3.534975097888672*^9}, {3.536863459221404*^9, 
   3.536863459439804*^9}, {3.540264711953947*^9, 3.5402647253239655`*^9}, {
   3.540264783504047*^9, 3.540264783504047*^9}, {3.540502117527218*^9, 
   3.540502117997218*^9}, {3.540502551737826*^9, 3.540502551937826*^9}, {
   3.5449015667548094`*^9, 3.5449015920048447`*^9}, 3.5460201927633896`*^9, {
   3.5460203100335536`*^9, 3.5460203443436017`*^9}, {3.546020448093747*^9, 
   3.5460204510737514`*^9}, 3.5460205170338435`*^9, 3.5460207518641725`*^9, {
   3.5460226623068466`*^9, 3.5460226755968657`*^9}, {3.5460227177169247`*^9, 
   3.5460227177169247`*^9}, {3.546023707982313*^9, 3.546023708262314*^9}, {
   3.546792386446255*^9, 3.5467924010864344`*^9}, {3.546792513166156*^9, 
   3.546792513166156*^9}, {3.5468155143461714`*^9, 3.5468155145261717`*^9}, {
   3.547316201692487*^9, 3.547316219319495*^9}, {3.5473165991182184`*^9, 
   3.5473165991182184`*^9}, {3.547316771379071*^9, 3.5473167909261894`*^9}, 
   3.5473169753797393`*^9, 3.5634065730643854`*^9, {3.5634118068646617`*^9, 
   3.5634118068646617`*^9}, 3.563411850373138*^9, 3.596855515444058*^9, 
   3.5968556255842123`*^9, {3.6020086646049986`*^9, 3.6020086648949986`*^9}, 
   3.6020087016750507`*^9, 3.6020097989165864`*^9, {3.602010766647941*^9, 
   3.6020107759779544`*^9}, {3.602025461220171*^9, 3.6020254630051737`*^9}, {
   3.602027105409516*^9, 3.6020271114895244`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{"u", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", "v"}], ")"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", "v"}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{"n", "+", 
         FractionBox["1", "2"]}], "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
       RowBox[{
        RowBox[{"m", "+", "n"}], "\[Element]", 
        "\[DoubleStruckCapitalZ]"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9, 
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9, 
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9}, 
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9, 
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9}, 
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9, 
   3.5403192458899937`*^9}, {3.5403196532852955`*^9, 
   3.5403196542853527`*^9}, {3.5404234472634363`*^9, 
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9, 
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, 
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9, 
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9, 
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9, 
   3.5454155892399735`*^9}, {3.545415619784827*^9, 3.5454156634961042`*^9}, 
   3.5454967587771344`*^9, {3.5461251637537785`*^9, 3.54612516456378*^9}, 
   3.5461253929840994`*^9, {3.546214618327402*^9, 3.5462146288774166`*^9}, {
   3.54731553719248*^9, 3.547315538735568*^9}, {3.547315667657942*^9, 
   3.547315668602996*^9}, 3.5473169596018367`*^9, {3.547317005052437*^9, 
   3.547317005052437*^9}, 3.563406579144394*^9, {3.5634118068802614`*^9, 
   3.5634118068958616`*^9}, 3.563411850919139*^9, 3.5968555177340612`*^9, 
   3.596855645954241*^9, {3.602008665174999*^9, 3.6020086654449997`*^9}, 
   3.6020087030750523`*^9, 3.6020103534373627`*^9, {3.602010809158001*^9, 
   3.6020108282980275`*^9}, {3.6020254507151566`*^9, 
   3.6020254507151566`*^9}, {3.602027088559492*^9, 3.602027113539527*^9}, {
   3.60202719410964*^9, 3.6020272139196677`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4983206021865325`*^9, {3.498326040356801*^9, 3.498326049592017*^9}, {
   3.4983263025932617`*^9, 3.498326308365272*^9}, {3.510260940930415*^9, 
   3.51026094460042*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     SqrtBox[
      RowBox[{"b", " ", 
       RowBox[{"F", "[", "x", "]"}]}]], 
     SqrtBox[
      RowBox[{"a", " ", 
       RowBox[{"F", "[", "x", "]"}]}]]]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980704431694036`*^9, {
   3.498320837060545*^9, 3.4983208718174057`*^9}, 3.4983264799655733`*^9, {
   3.4983265293864603`*^9, 3.4983265518504996`*^9}, {3.510260868510313*^9, 
   3.510260895210351*^9}, {3.5102609859104776`*^9, 3.5102609865504785`*^9}, {
   3.511714714700369*^9, 3.5117147350740047`*^9}, {3.5117152169432507`*^9, 
   3.5117152315916767`*^9}, {3.5117561659742937`*^9, 
   3.5117561659742937`*^9}, {3.5118185923538933`*^9, 
   3.5118186314339476`*^9}, {3.511818664503994*^9, 3.5118186916940317`*^9}, 
   3.5145721515462685`*^9, {3.545415611111212*^9, 3.545415612296814*^9}, {
   3.5454156443548703`*^9, 3.5454156450100718`*^9}, {3.54612527918394*^9, 
   3.54612529305396*^9}, {3.546125371024069*^9, 3.546125374674074*^9}, {
   3.5622930416578875`*^9, 3.562293044597892*^9}, {3.5634175889944005`*^9, 
   3.5634175889944005`*^9}, {3.596855519174063*^9, 3.596855519174063*^9}, {
   3.5968559823647118`*^9, 3.5968559829347124`*^9}, {3.6020104573875084`*^9, 
   3.6020104573875084`*^9}, {3.602011219948576*^9, 3.602011222418579*^9}, {
   3.6020255309552717`*^9, 3.6020255431052885`*^9}}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "+", 
    FractionBox["1", "2"]}], "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", "v"}], ")"}], "n"], "\[Equal]", 
   RowBox[{
    FractionBox[
     RowBox[{
      SuperscriptBox["b", 
       RowBox[{"n", "-", 
        FractionBox["1", "2"]}]], 
      SqrtBox[
       RowBox[{"b", " ", "v"}]]}], 
     RowBox[{
      SuperscriptBox["a", 
       RowBox[{"n", "-", 
        FractionBox["1", "2"]}]], 
      SqrtBox[
       RowBox[{"a", " ", "v"}]]}]], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", " ", "v"}], ")"}], "n"]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980704431694036`*^9, {
   3.498320837060545*^9, 3.4983208718174057`*^9}, 3.4983264799655733`*^9, {
   3.4983265293864603`*^9, 3.4983265518504996`*^9}, {3.510260868510313*^9, 
   3.510260895210351*^9}, {3.5102609859104776`*^9, 3.5102609865504785`*^9}, {
   3.511714714700369*^9, 3.5117147350740047`*^9}, {3.5117152169432507`*^9, 
   3.5117152315916767`*^9}, {3.5117561659742937`*^9, 
   3.5117561659742937`*^9}, {3.5118185923538933`*^9, 
   3.5118186314339476`*^9}, {3.511818664503994*^9, 3.5118186916940317`*^9}, 
   3.5145721515462685`*^9, {3.545415611111212*^9, 3.545415612296814*^9}, {
   3.5454156443548703`*^9, 3.5454156450100718`*^9}, {3.54612527918394*^9, 
   3.54612529305396*^9}, {3.546125371024069*^9, 3.546125374674074*^9}, {
   3.5622930416578875`*^9, 3.562293044597892*^9}, {3.5634175889944005`*^9, 
   3.5634175889944005`*^9}, {3.596855519174063*^9, 3.596855519174063*^9}, {
   3.5968559823647118`*^9, 3.5968559829347124`*^9}, {3.6020104573875084`*^9, 
   3.6020104573875084`*^9}, {3.6020108510280595`*^9, 3.602010868118083*^9}, {
   3.6020243052735124`*^9, 3.602024341193564*^9}, {3.6020244293186903`*^9, 
   3.6020244293186903`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
   " ", 
   RowBox[{
    RowBox[{"n", "+", 
     FractionBox["1", "2"]}], "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
   RowBox[{
    RowBox[{"m", "+", "n"}], "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9, 
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9, 
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.500345120088499*^9, 
   3.500345127428509*^9}, {3.500410576940289*^9, 3.5004105779663477`*^9}, {
   3.5004106327664824`*^9, 3.500410643898119*^9}, {3.500429569940626*^9, 
   3.500429571675726*^9}, {3.502204840167862*^9, 3.502204842617066*^9}, 
   3.5023038294281306`*^9, {3.504362658868907*^9, 3.504362660078909*^9}, {
   3.50436465472136*^9, 3.5043646556213617`*^9}, {3.504839359121956*^9, 
   3.5048393791619835`*^9}, {3.504839672312394*^9, 3.5048396733523955`*^9}, 
   3.5098341584452877`*^9, {3.5101828092264166`*^9, 3.5101828193196344`*^9}, {
   3.511715292228983*^9, 3.511715334692258*^9}, {3.5117155048269134`*^9, 
   3.511715508166918*^9}, {3.5117295035766306`*^9, 3.511729505106633*^9}, {
   3.511750898236919*^9, 3.5117508991769204`*^9}, {3.5117555222533927`*^9, 
   3.5117555300634036`*^9}, {3.5118334045968*^9, 3.511833408403207*^9}, 
   3.5145720728661585`*^9, {3.514856031797722*^9, 3.5148560328117237`*^9}, {
   3.5151816617393637`*^9, 3.515181662316565*^9}, {3.545415625915638*^9, 
   3.5454156332008505`*^9}, {3.5454300704751377`*^9, 3.545430071215139*^9}, {
   3.546125159633773*^9, 3.546125160493774*^9}, {3.546214650777447*^9, 
   3.546214650777447*^9}, {3.547315700922845*^9, 3.547315700922845*^9}, {
   3.5473170462477927`*^9, 3.5473170462477927`*^9}, {3.6020107326578937`*^9, 
   3.6020107326578937`*^9}, {3.602010842968048*^9, 3.602010842968048*^9}, {
   3.602024306988515*^9, 3.6020243088435173`*^9}, {3.6020244431137104`*^9, 
   3.6020244528887243`*^9}, {3.6020273595998716`*^9, 3.6020273595998716`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{"u", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", " ", "v"}], ")"}], "m"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", "v"}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["a", 
        RowBox[{"m", "+", 
         FractionBox["1", "2"]}]], 
       SuperscriptBox["b", 
        RowBox[{"n", "-", 
         FractionBox["1", "2"]}]], 
       SqrtBox[
        RowBox[{"b", " ", "v"}]]}], 
      SqrtBox[
       RowBox[{"a", " ", "v"}]]]}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{"u", " ", 
     SuperscriptBox["v", 
      RowBox[{"m", "+", "n"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9, 
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9, 
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9, 
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9, 
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9, 
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9, 
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9, 
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9, 
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9, 
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.5040325720154343`*^9, 
   3.5040325776782446`*^9}, 3.505344641413784*^9, {3.5053446931638565`*^9, 
   3.505344715023887*^9}, 3.5053535547652063`*^9, {3.509472692844695*^9, 
   3.509472735704147*^9}, {3.5094728451264057`*^9, 3.509472933684471*^9}, {
   3.5098341849653344`*^9, 3.509834296848731*^9}, {3.5098343294527884`*^9, 
   3.509834364194049*^9}, 3.5098346591437674`*^9, {3.5098347856443896`*^9, 
   3.5098347898251967`*^9}, {3.5098348311028695`*^9, 
   3.5098349107098093`*^9}, {3.5098349437662673`*^9, 3.509834983374737*^9}, 
   3.5098350560552645`*^9, {3.5098351175973725`*^9, 3.509835139499811*^9}, 
   3.5098475309589915`*^9, {3.510182683146995*^9, 3.5101826880610037`*^9}, {
   3.5101828251228447`*^9, 3.5101828513152905`*^9}, {3.510182945071455*^9, 
   3.5101829454458556`*^9}, {3.511714482540761*^9, 3.5117145274688396`*^9}, {
   3.5117145862341433`*^9, 3.5117146153281946`*^9}, {3.5117147853060927`*^9, 
   3.511714803090124*^9}, {3.5117151505963345`*^9, 3.5117151632479568`*^9}, {
   3.511715744517249*^9, 3.511715747287253*^9}, {3.5118158169600077`*^9, 
   3.511815862160071*^9}, 3.511815909280137*^9, {3.5118176520325766`*^9, 
   3.5118176689026003`*^9}, 3.5118179461929884`*^9, {3.511819812927603*^9, 
   3.5118198181376104`*^9}, {3.5118198622576723`*^9, 3.511819864577675*^9}, {
   3.5145719907960434`*^9, 3.51457201659608*^9}, {3.514572326606514*^9, 
   3.514572331676521*^9}, {3.51516810299435*^9, 3.515168104974353*^9}, {
   3.546125202673833*^9, 3.5461252302438717`*^9}, {3.5634118069270616`*^9, 
   3.5634118069582615`*^9}, {3.5634118519019403`*^9, 3.5634118524323416`*^9}, 
   3.563412172970504*^9, {3.5968555202140646`*^9, 3.5968555212540665`*^9}, 
   3.596855650024246*^9, {3.59685576642441*^9, 3.5968557670244102`*^9}, 
   3.596855806694466*^9, 3.5968559528046703`*^9, {3.602008665795*^9, 
   3.602008667215002*^9}, {3.602010361607374*^9, 3.602010427267466*^9}, 
   3.602010902798132*^9, 3.6020242481734304`*^9, {3.602024290168491*^9, 
   3.602024295298498*^9}, 3.6020244836837683`*^9, {3.602027371979889*^9, 
   3.602027382729904*^9}, {3.6020274322199736`*^9, 3.6020274352099776`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.5968560478048034`*^9, 3.5968560671348305`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"u_.", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", "v_"}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", "v_"}], ")"}], "^", "n_"}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"a", "^", 
     RowBox[{"(", 
      RowBox[{"m", "+", 
       RowBox[{"1", "/", "2"}]}], ")"}]}], "*", 
    RowBox[{"b", "^", 
     RowBox[{"(", 
      RowBox[{"n", "-", 
       RowBox[{"1", "/", "2"}]}], ")"}]}], "*", 
    RowBox[{
     RowBox[{"Sqrt", "[", 
      RowBox[{"b", "*", "v"}], "]"}], "/", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"a", "*", "v"}], "]"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{"u", "*", 
       RowBox[{"v", "^", 
        RowBox[{"(", 
         RowBox[{"m", "+", "n"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "m"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "m", "]"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{
      RowBox[{"n", "+", 
       RowBox[{"1", "/", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"m", "+", "n"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9, 
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9, 
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9}, 
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9, 
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9}, 
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9, 
   3.4992127382126956`*^9}, {3.4992128038327875`*^9, 
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9, 
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9, 
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9, 
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9}, 
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9}, 
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9, 
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9, 
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9, 
   3.5010431675511227`*^9}, {3.5013560814295626`*^9, 
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9, 
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9}, 
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9}, 
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9, 
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9}, 
   3.5027656584730268`*^9, 3.5027671152479863`*^9, {3.5030718189880323`*^9, 
   3.5030718291780467`*^9}, 3.5038761961479836`*^9, {3.504156546965613*^9, 
   3.504156548322815*^9}, {3.5042968954456654`*^9, 3.5042969168056955`*^9}, {
   3.5051010426366124`*^9, 3.505101050326623*^9}, 3.5053446414337845`*^9, {
   3.5053446931938567`*^9, 3.505344715043887*^9}, 3.50535355708521*^9, {
   3.509473076633647*^9, 3.509473117827003*^9}, 3.509473221522934*^9, {
   3.5094732830534534`*^9, 3.509473292318983*^9}, {3.5094751195374947`*^9, 
   3.5094751247597933`*^9}, 3.5098352718192434`*^9, {3.509835307137706*^9, 
   3.5098353487273784`*^9}, {3.509847535218998*^9, 3.5098475613690343`*^9}, {
   3.5101827112582445`*^9, 3.510182715657452*^9}, {3.510182781661168*^9, 
   3.5101827868091774`*^9}, {3.5101830769696865`*^9, 3.510183111738948*^9}, {
   3.5101832687064238`*^9, 3.5101832709372272`*^9}, {3.511715355721095*^9, 
   3.5117153607131033`*^9}, {3.511715428066806*^9, 3.5117154599968505`*^9}, {
   3.511715511146922*^9, 3.5117155141269264`*^9}, {3.511715565286998*^9, 
   3.5117155864270277`*^9}, {3.511715750947258*^9, 3.5117157539772625`*^9}, {
   3.5117293456064095`*^9, 3.5117294275865245`*^9}, {3.5117296689768624`*^9, 
   3.5117296728068676`*^9}, {3.5117302889377303`*^9, 3.5117303011477475`*^9}, 
   3.5117466386965055`*^9, {3.511750894036913*^9, 3.511750894676914*^9}, {
   3.5117511267572393`*^9, 3.5117511307372446`*^9}, {3.5117512119573584`*^9, 
   3.511751214027361*^9}, {3.511751883348298*^9, 3.5117518878683043`*^9}, {
   3.5117519413583794`*^9, 3.511751948148389*^9}, {3.5117521986187396`*^9, 
   3.511752203998747*^9}, {3.511755503353366*^9, 3.5117555064233704`*^9}, {
   3.5118335100217853`*^9, 3.5118335340614276`*^9}, 3.5145720383461103`*^9, {
   3.5145721800463085`*^9, 3.5145722335263834`*^9}, {3.5145723389965315`*^9, 
   3.5145723423365355`*^9}, {3.5145724500966864`*^9, 3.514572450266687*^9}, 
   3.516820646406448*^9, {3.5418961167530327`*^9, 3.541896117983034*^9}, {
   3.5449827397744484`*^9, 3.544982749304462*^9}, 3.5461060983374033`*^9, {
   3.5461064994141073`*^9, 3.546106521269746*^9}, 3.546106612139906*^9, 
   3.546125075313655*^9, {3.546125116593713*^9, 3.546125139913745*^9}, {
   3.5462146339374237`*^9, 3.5462146423374357`*^9}, {3.547315350968828*^9, 
   3.5473153548750515`*^9}, {3.5473156828768125`*^9, 3.547315687131056*^9}, 
   3.5473170592375355`*^9, {3.5631229771336594`*^9, 3.5631229815328665`*^9}, {
   3.5631246086173153`*^9, 3.563124620309984*^9}, {3.563126725785471*^9, 
   3.563126727675473*^9}, {3.5634118229326897`*^9, 3.56341182294829*^9}, 
   3.563411889878007*^9, {3.5634119390492935`*^9, 3.5634119861613765`*^9}, 
   3.563412037625867*^9, {3.596855522504068*^9, 3.596855524424071*^9}, {
   3.5968560480448036`*^9, 3.596856051864809*^9}, {3.5968561100448904`*^9, 
   3.5968561150448976`*^9}, {3.596856155344954*^9, 3.5968561614149623`*^9}, {
   3.5968561924850063`*^9, 3.5968561951750097`*^9}, {3.602008667915003*^9, 
   3.602008668625004*^9}, {3.6020087660151405`*^9, 3.6020087665551414`*^9}, {
   3.602009139125663*^9, 3.602009162565696*^9}, {3.602010940648185*^9, 
   3.602010952988202*^9}, {3.602010985078247*^9, 3.602011013908287*^9}, {
   3.6020110477783346`*^9, 3.6020110551183453`*^9}, {3.602011093608399*^9, 
   3.602011161578494*^9}, 3.602024253513438*^9, 3.602024536408844*^9, {
   3.602025260459883*^9, 3.6020252741049027`*^9}, 3.6020253220049715`*^9, 
   3.6020253561800203`*^9, 3.602027342609848*^9, 3.6020275567201476`*^9, {
   3.602028784191866*^9, 3.6020288065618973`*^9}, {3.602029645363072*^9, 
   3.6020296581930895`*^9}, {3.7154740330067263`*^9, 3.715474037559987*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["x:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{"u", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", "v"}], ")"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", "v"}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{"n", "+", 
         FractionBox["1", "2"]}], "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
       RowBox[{
        RowBox[{"m", "+", "n"}], "\[NotElement]", 
        "\[DoubleStruckCapitalZ]"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9, 
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9, 
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9}, 
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9, 
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9}, 
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9, 
   3.5403192458899937`*^9}, {3.5403196532852955`*^9, 
   3.5403196542853527`*^9}, {3.5404234472634363`*^9, 
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9, 
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, 
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9, 
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9, 
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9, 
   3.5454155892399735`*^9}, {3.545415619784827*^9, 3.5454156634961042`*^9}, 
   3.5454967587771344`*^9, {3.5461251637537785`*^9, 3.54612516456378*^9}, 
   3.5461253929840994`*^9, {3.546214618327402*^9, 3.5462146288774166`*^9}, {
   3.54731553719248*^9, 3.547315538735568*^9}, {3.547315667657942*^9, 
   3.547315668602996*^9}, 3.5473169596018367`*^9, {3.547317005052437*^9, 
   3.547317005052437*^9}, 3.563406579144394*^9, {3.5634118068802614`*^9, 
   3.5634118068958616`*^9}, 3.563411850919139*^9, 3.5968555177340612`*^9, 
   3.596855645954241*^9, {3.602008665174999*^9, 3.6020086654449997`*^9}, 
   3.6020087030750523`*^9, 3.6020103534373627`*^9, {3.602010809158001*^9, 
   3.6020108282980275`*^9}, {3.6020254507151566`*^9, 
   3.6020254507151566`*^9}, {3.602027088559492*^9, 3.6020271204895372`*^9}, {
   3.6020272219096785`*^9, 3.6020272277196875`*^9}, {3.6020305092642813`*^9, 
   3.6020305094142814`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4983206021865325`*^9, {3.498326040356801*^9, 3.498326049592017*^9}, {
   3.4983263025932617`*^9, 3.498326308365272*^9}, {3.510260940930415*^9, 
   3.51026094460042*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     SqrtBox[
      RowBox[{"b", " ", 
       RowBox[{"F", "[", "x", "]"}]}]], 
     SqrtBox[
      RowBox[{"a", " ", 
       RowBox[{"F", "[", "x", "]"}]}]]]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980704431694036`*^9, {
   3.498320837060545*^9, 3.4983208718174057`*^9}, 3.4983264799655733`*^9, {
   3.4983265293864603`*^9, 3.4983265518504996`*^9}, {3.510260868510313*^9, 
   3.510260895210351*^9}, {3.5102609859104776`*^9, 3.5102609865504785`*^9}, {
   3.511714714700369*^9, 3.5117147350740047`*^9}, {3.5117152169432507`*^9, 
   3.5117152315916767`*^9}, {3.5117561659742937`*^9, 
   3.5117561659742937`*^9}, {3.5118185923538933`*^9, 
   3.5118186314339476`*^9}, {3.511818664503994*^9, 3.5118186916940317`*^9}, 
   3.5145721515462685`*^9, {3.545415611111212*^9, 3.545415612296814*^9}, {
   3.5454156443548703`*^9, 3.5454156450100718`*^9}, {3.54612527918394*^9, 
   3.54612529305396*^9}, {3.546125371024069*^9, 3.546125374674074*^9}, {
   3.5622930416578875`*^9, 3.562293044597892*^9}, {3.5634175889944005`*^9, 
   3.5634175889944005`*^9}, {3.596855519174063*^9, 3.596855519174063*^9}, {
   3.5968559823647118`*^9, 3.5968559829347124`*^9}, {3.6020104573875084`*^9, 
   3.6020104573875084`*^9}, {3.602011219948576*^9, 3.602011222418579*^9}, {
   3.6020255309552717`*^9, 3.6020255431052885`*^9}}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "+", 
    FractionBox["1", "2"]}], "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", "v"}], ")"}], "n"], "\[Equal]", 
   RowBox[{
    FractionBox[
     RowBox[{
      SuperscriptBox["b", 
       RowBox[{"n", "-", 
        FractionBox["1", "2"]}]], 
      SqrtBox[
       RowBox[{"b", " ", "v"}]]}], 
     RowBox[{
      SuperscriptBox["a", 
       RowBox[{"n", "-", 
        FractionBox["1", "2"]}]], 
      SqrtBox[
       RowBox[{"a", " ", "v"}]]}]], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", " ", "v"}], ")"}], "n"]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980704431694036`*^9, {
   3.498320837060545*^9, 3.4983208718174057`*^9}, 3.4983264799655733`*^9, {
   3.4983265293864603`*^9, 3.4983265518504996`*^9}, {3.510260868510313*^9, 
   3.510260895210351*^9}, {3.5102609859104776`*^9, 3.5102609865504785`*^9}, {
   3.511714714700369*^9, 3.5117147350740047`*^9}, {3.5117152169432507`*^9, 
   3.5117152315916767`*^9}, {3.5117561659742937`*^9, 
   3.5117561659742937`*^9}, {3.5118185923538933`*^9, 
   3.5118186314339476`*^9}, {3.511818664503994*^9, 3.5118186916940317`*^9}, 
   3.5145721515462685`*^9, {3.545415611111212*^9, 3.545415612296814*^9}, {
   3.5454156443548703`*^9, 3.5454156450100718`*^9}, {3.54612527918394*^9, 
   3.54612529305396*^9}, {3.546125371024069*^9, 3.546125374674074*^9}, {
   3.5622930416578875`*^9, 3.562293044597892*^9}, {3.5634175889944005`*^9, 
   3.5634175889944005`*^9}, {3.596855519174063*^9, 3.596855519174063*^9}, {
   3.5968559823647118`*^9, 3.5968559829347124`*^9}, {3.6020104573875084`*^9, 
   3.6020104573875084`*^9}, {3.6020108510280595`*^9, 3.602010868118083*^9}, {
   3.6020243052735124`*^9, 3.602024341193564*^9}, {3.6020244293186903`*^9, 
   3.6020244293186903`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
   " ", 
   RowBox[{
    RowBox[{"n", "+", 
     FractionBox["1", "2"]}], "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
   RowBox[{
    RowBox[{"m", "+", "n"}], "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9, 
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9, 
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.500345120088499*^9, 
   3.500345127428509*^9}, {3.500410576940289*^9, 3.5004105779663477`*^9}, {
   3.5004106327664824`*^9, 3.500410643898119*^9}, {3.500429569940626*^9, 
   3.500429571675726*^9}, {3.502204840167862*^9, 3.502204842617066*^9}, 
   3.5023038294281306`*^9, {3.504362658868907*^9, 3.504362660078909*^9}, {
   3.50436465472136*^9, 3.5043646556213617`*^9}, {3.504839359121956*^9, 
   3.5048393791619835`*^9}, {3.504839672312394*^9, 3.5048396733523955`*^9}, 
   3.5098341584452877`*^9, {3.5101828092264166`*^9, 3.5101828193196344`*^9}, {
   3.511715292228983*^9, 3.511715334692258*^9}, {3.5117155048269134`*^9, 
   3.511715508166918*^9}, {3.5117295035766306`*^9, 3.511729505106633*^9}, {
   3.511750898236919*^9, 3.5117508991769204`*^9}, {3.5117555222533927`*^9, 
   3.5117555300634036`*^9}, {3.5118334045968*^9, 3.511833408403207*^9}, 
   3.5145720728661585`*^9, {3.514856031797722*^9, 3.5148560328117237`*^9}, {
   3.5151816617393637`*^9, 3.515181662316565*^9}, {3.545415625915638*^9, 
   3.5454156332008505`*^9}, {3.5454300704751377`*^9, 3.545430071215139*^9}, {
   3.546125159633773*^9, 3.546125160493774*^9}, {3.546214650777447*^9, 
   3.546214650777447*^9}, {3.547315700922845*^9, 3.547315700922845*^9}, {
   3.5473170462477927`*^9, 3.5473170462477927`*^9}, {3.6020107326578937`*^9, 
   3.6020107326578937`*^9}, {3.602010842968048*^9, 3.602010842968048*^9}, {
   3.602024306988515*^9, 3.6020243088435173`*^9}, {3.6020244431137104`*^9, 
   3.6020244528887243`*^9}, {3.6020272857297688`*^9, 3.6020272857297688`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{"u", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", " ", "v"}], ")"}], "m"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", "v"}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["b", 
        RowBox[{"n", "-", 
         FractionBox["1", "2"]}]], 
       SqrtBox[
        RowBox[{"b", " ", "v"}]]}], 
      RowBox[{
       SuperscriptBox["a", 
        RowBox[{"n", "-", 
         FractionBox["1", "2"]}]], 
       SqrtBox[
        RowBox[{"a", " ", "v"}]]}]]}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{"u", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", "v"}], ")"}], 
      RowBox[{"m", "+", "n"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9, 
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9, 
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9, 
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9, 
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9, 
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9, 
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9, 
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9, 
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9, 
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.5040325720154343`*^9, 
   3.5040325776782446`*^9}, 3.505344641413784*^9, {3.5053446931638565`*^9, 
   3.505344715023887*^9}, 3.5053535547652063`*^9, {3.509472692844695*^9, 
   3.509472735704147*^9}, {3.5094728451264057`*^9, 3.509472933684471*^9}, {
   3.5098341849653344`*^9, 3.509834296848731*^9}, {3.5098343294527884`*^9, 
   3.509834364194049*^9}, 3.5098346591437674`*^9, {3.5098347856443896`*^9, 
   3.5098347898251967`*^9}, {3.5098348311028695`*^9, 
   3.5098349107098093`*^9}, {3.5098349437662673`*^9, 3.509834983374737*^9}, 
   3.5098350560552645`*^9, {3.5098351175973725`*^9, 3.509835139499811*^9}, 
   3.5098475309589915`*^9, {3.510182683146995*^9, 3.5101826880610037`*^9}, {
   3.5101828251228447`*^9, 3.5101828513152905`*^9}, {3.510182945071455*^9, 
   3.5101829454458556`*^9}, {3.511714482540761*^9, 3.5117145274688396`*^9}, {
   3.5117145862341433`*^9, 3.5117146153281946`*^9}, {3.5117147853060927`*^9, 
   3.511714803090124*^9}, {3.5117151505963345`*^9, 3.5117151632479568`*^9}, {
   3.511715744517249*^9, 3.511715747287253*^9}, {3.5118158169600077`*^9, 
   3.511815862160071*^9}, 3.511815909280137*^9, {3.5118176520325766`*^9, 
   3.5118176689026003`*^9}, 3.5118179461929884`*^9, {3.511819812927603*^9, 
   3.5118198181376104`*^9}, {3.5118198622576723`*^9, 3.511819864577675*^9}, {
   3.5145719907960434`*^9, 3.51457201659608*^9}, {3.514572326606514*^9, 
   3.514572331676521*^9}, {3.51516810299435*^9, 3.515168104974353*^9}, {
   3.546125202673833*^9, 3.5461252302438717`*^9}, {3.5634118069270616`*^9, 
   3.5634118069582615`*^9}, {3.5634118519019403`*^9, 3.5634118524323416`*^9}, 
   3.563412172970504*^9, {3.5968555202140646`*^9, 3.5968555212540665`*^9}, 
   3.596855650024246*^9, {3.59685576642441*^9, 3.5968557670244102`*^9}, 
   3.596855806694466*^9, 3.5968559528046703`*^9, {3.602008665795*^9, 
   3.602008667215002*^9}, {3.602010361607374*^9, 3.602010427267466*^9}, 
   3.602010902798132*^9, 3.6020242481734304`*^9, {3.602024290168491*^9, 
   3.602024295298498*^9}, 3.6020244836837683`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.5968560478048034`*^9, 3.5968560671348305`*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"u_.", "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a_.", "*", "v_"}], ")"}], "^", "m_"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b_.", "*", "v_"}], ")"}], "^", "n_"}]}], ",", "x_Symbol"}], 
    "]"}], " ", ":=", "\n", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{"b", "^", 
      RowBox[{"(", 
       RowBox[{"n", "-", 
        RowBox[{"1", "/", "2"}]}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Sqrt", "[", 
       RowBox[{"b", "*", "v"}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", "^", 
         RowBox[{"(", 
          RowBox[{"n", "-", 
           RowBox[{"1", "/", "2"}]}], ")"}]}], "*", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"a", "*", "v"}], "]"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"u", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "*", "v"}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "n"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
    "\n", 
    RowBox[{
     RowBox[{"FreeQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"a", ",", "b", ",", "m"}], "}"}], ",", "x"}], "]"}], " ", "&&",
      " ", 
     RowBox[{"Not", "[", 
      RowBox[{"IntegerQ", "[", "m", "]"}], "]"}], " ", "&&", " ", 
     RowBox[{"IGtQ", "[", 
      RowBox[{
       RowBox[{"n", "+", 
        RowBox[{"1", "/", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
     RowBox[{"Not", "[", 
      RowBox[{"IntegerQ", "[", 
       RowBox[{"m", "+", "n"}], "]"}], "]"}]}]}]}], " ", "*)"}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9, 
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9, 
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9}, 
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9, 
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9}, 
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9, 
   3.4992127382126956`*^9}, {3.4992128038327875`*^9, 
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9, 
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9, 
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9, 
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9}, 
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9}, 
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9, 
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9, 
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9, 
   3.5010431675511227`*^9}, {3.5013560814295626`*^9, 
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9, 
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9}, 
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9}, 
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9, 
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9}, 
   3.5027656584730268`*^9, 3.5027671152479863`*^9, {3.5030718189880323`*^9, 
   3.5030718291780467`*^9}, 3.5038761961479836`*^9, {3.504156546965613*^9, 
   3.504156548322815*^9}, {3.5042968954456654`*^9, 3.5042969168056955`*^9}, {
   3.5051010426366124`*^9, 3.505101050326623*^9}, 3.5053446414337845`*^9, {
   3.5053446931938567`*^9, 3.505344715043887*^9}, 3.50535355708521*^9, {
   3.509473076633647*^9, 3.509473117827003*^9}, 3.509473221522934*^9, {
   3.5094732830534534`*^9, 3.509473292318983*^9}, {3.5094751195374947`*^9, 
   3.5094751247597933`*^9}, 3.5098352718192434`*^9, {3.509835307137706*^9, 
   3.5098353487273784`*^9}, {3.509847535218998*^9, 3.5098475613690343`*^9}, {
   3.5101827112582445`*^9, 3.510182715657452*^9}, {3.510182781661168*^9, 
   3.5101827868091774`*^9}, {3.5101830769696865`*^9, 3.510183111738948*^9}, {
   3.5101832687064238`*^9, 3.5101832709372272`*^9}, {3.511715355721095*^9, 
   3.5117153607131033`*^9}, {3.511715428066806*^9, 3.5117154599968505`*^9}, {
   3.511715511146922*^9, 3.5117155141269264`*^9}, {3.511715565286998*^9, 
   3.5117155864270277`*^9}, {3.511715750947258*^9, 3.5117157539772625`*^9}, {
   3.5117293456064095`*^9, 3.5117294275865245`*^9}, {3.5117296689768624`*^9, 
   3.5117296728068676`*^9}, {3.5117302889377303`*^9, 3.5117303011477475`*^9}, 
   3.5117466386965055`*^9, {3.511750894036913*^9, 3.511750894676914*^9}, {
   3.5117511267572393`*^9, 3.5117511307372446`*^9}, {3.5117512119573584`*^9, 
   3.511751214027361*^9}, {3.511751883348298*^9, 3.5117518878683043`*^9}, {
   3.5117519413583794`*^9, 3.511751948148389*^9}, {3.5117521986187396`*^9, 
   3.511752203998747*^9}, {3.511755503353366*^9, 3.5117555064233704`*^9}, {
   3.5118335100217853`*^9, 3.5118335340614276`*^9}, 3.5145720383461103`*^9, {
   3.5145721800463085`*^9, 3.5145722335263834`*^9}, {3.5145723389965315`*^9, 
   3.5145723423365355`*^9}, {3.5145724500966864`*^9, 3.514572450266687*^9}, 
   3.516820646406448*^9, {3.5418961167530327`*^9, 3.541896117983034*^9}, {
   3.5449827397744484`*^9, 3.544982749304462*^9}, 3.5461060983374033`*^9, {
   3.5461064994141073`*^9, 3.546106521269746*^9}, 3.546106612139906*^9, 
   3.546125075313655*^9, {3.546125116593713*^9, 3.546125139913745*^9}, {
   3.5462146339374237`*^9, 3.5462146423374357`*^9}, {3.547315350968828*^9, 
   3.5473153548750515`*^9}, {3.5473156828768125`*^9, 3.547315687131056*^9}, 
   3.5473170592375355`*^9, {3.5631229771336594`*^9, 3.5631229815328665`*^9}, {
   3.5631246086173153`*^9, 3.563124620309984*^9}, {3.563126725785471*^9, 
   3.563126727675473*^9}, {3.5634118229326897`*^9, 3.56341182294829*^9}, 
   3.563411889878007*^9, {3.5634119390492935`*^9, 3.5634119861613765`*^9}, 
   3.563412037625867*^9, {3.596855522504068*^9, 3.596855524424071*^9}, {
   3.5968560480448036`*^9, 3.596856051864809*^9}, {3.5968561100448904`*^9, 
   3.5968561150448976`*^9}, {3.596856155344954*^9, 3.5968561614149623`*^9}, {
   3.5968561924850063`*^9, 3.5968561951750097`*^9}, {3.602008667915003*^9, 
   3.602008668625004*^9}, {3.6020087660151405`*^9, 3.6020087665551414`*^9}, {
   3.602009139125663*^9, 3.602009162565696*^9}, {3.602010940648185*^9, 
   3.602010952988202*^9}, {3.602010985078247*^9, 3.602011013908287*^9}, {
   3.6020110477783346`*^9, 3.6020110551183453`*^9}, {3.602011093608399*^9, 
   3.602011161578494*^9}, 3.602024253513438*^9, 3.602024536408844*^9, {
   3.602025260459883*^9, 3.6020252741049027`*^9}, 3.6020253220049715`*^9, 
   3.6020253561800203`*^9, 3.602027297559785*^9, {3.602028790411875*^9, 
   3.6020288049818954`*^9}, {3.602029646013073*^9, 3.6020296587730904`*^9}, {
   3.6020304914842567`*^9, 3.602030495524262*^9}, {3.7154740465925035`*^9, 
   3.7154740504617248`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{"u", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", "v"}], ")"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", "v"}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{"n", "-", 
         FractionBox["1", "2"]}], "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.4965117206885777`*^9, 3.5192471175756674`*^9, {3.5192587973599553`*^9, 
   3.5192588081399703`*^9}, {3.519321495105319*^9, 3.5193214991925263`*^9}, 
   3.5193247857072587`*^9, {3.5194051897010813`*^9, 3.5194051902791147`*^9}, {
   3.5194055551249824`*^9, 3.5194055708408813`*^9}, {3.519405711316916*^9, 
   3.51940572904193*^9}, {3.519410772192028*^9, 3.5194107776364374`*^9}, {
   3.519413782484516*^9, 3.519413782827717*^9}, {3.519767588664174*^9, 
   3.519767611128214*^9}, {3.5197937941314034`*^9, 3.519793794568204*^9}, {
   3.5197947626591043`*^9, 3.519794764749508*^9}, {3.519794865354085*^9, 
   3.519794874355301*^9}, {3.523218063086026*^9, 3.523218070356036*^9}, {
   3.523316514684347*^9, 3.523316514684347*^9}, {3.5233165475343933`*^9, 
   3.5233165475343933`*^9}, {3.5233184331871357`*^9, 
   3.5233184334271364`*^9}, {3.5273599103435545`*^9, 3.527359910608755*^9}, {
   3.5326424241029196`*^9, 3.53264242435292*^9}, {3.5326584126048727`*^9, 
   3.532658412794873*^9}, {3.532726454021428*^9, 3.5327264542814283`*^9}, {
   3.5327554047263184`*^9, 3.532755404993334*^9}, {3.532798666112293*^9, 
   3.532798676322307*^9}, {3.5328778343810363`*^9, 3.5328778343810363`*^9}, 
   3.5330758294771795`*^9, {3.5330827570868783`*^9, 3.533082757336879*^9}, {
   3.534975097668671*^9, 3.534975097888672*^9}, {3.536863459221404*^9, 
   3.536863459439804*^9}, {3.540264711953947*^9, 3.5402647253239655`*^9}, {
   3.540264783504047*^9, 3.540264783504047*^9}, {3.540502117527218*^9, 
   3.540502117997218*^9}, {3.540502551737826*^9, 3.540502551937826*^9}, {
   3.5449015667548094`*^9, 3.5449015920048447`*^9}, 3.5460201927633896`*^9, {
   3.5460203100335536`*^9, 3.5460203443436017`*^9}, {3.546020448093747*^9, 
   3.5460204510737514`*^9}, 3.5460205170338435`*^9, 3.5460207518641725`*^9, {
   3.5460226623068466`*^9, 3.5460226755968657`*^9}, {3.5460227177169247`*^9, 
   3.5460227177169247`*^9}, {3.546023707982313*^9, 3.546023708262314*^9}, {
   3.546792386446255*^9, 3.5467924010864344`*^9}, {3.546792513166156*^9, 
   3.546792513166156*^9}, {3.5468155143461714`*^9, 3.5468155145261717`*^9}, {
   3.547316201692487*^9, 3.547316219319495*^9}, {3.5473165991182184`*^9, 
   3.5473165991182184`*^9}, {3.547316771379071*^9, 3.5473167909261894`*^9}, 
   3.5473169753797393`*^9, 3.5634065730643854`*^9, {3.5634118068646617`*^9, 
   3.5634118068646617`*^9}, 3.563411850373138*^9, 3.596855515444058*^9, 
   3.5968556255842123`*^9, {3.6020086646049986`*^9, 3.6020086648949986`*^9}, 
   3.6020087016750507`*^9, 3.6020097989165864`*^9, {3.602010766647941*^9, 
   3.6020107759779544`*^9}, {3.602025461220171*^9, 3.6020254630051737`*^9}, {
   3.602027105409516*^9, 3.6020271114895244`*^9}, {3.6020271425695677`*^9, 
   3.6020271530195827`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{"u", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", "v"}], ")"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", "v"}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{"n", "-", 
         FractionBox["1", "2"]}], "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}], "\[And]", " ", 
       RowBox[{
        RowBox[{"m", "+", "n"}], "\[Element]", 
        "\[DoubleStruckCapitalZ]"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9, 
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9, 
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9}, 
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9, 
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9}, 
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9, 
   3.5403192458899937`*^9}, {3.5403196532852955`*^9, 
   3.5403196542853527`*^9}, {3.5404234472634363`*^9, 
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9, 
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, 
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9, 
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9, 
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9, 
   3.5454155892399735`*^9}, {3.545415619784827*^9, 3.5454156634961042`*^9}, 
   3.5454967587771344`*^9, {3.5461251637537785`*^9, 3.54612516456378*^9}, 
   3.5461253929840994`*^9, {3.546214618327402*^9, 3.5462146288774166`*^9}, {
   3.54731553719248*^9, 3.547315538735568*^9}, {3.547315667657942*^9, 
   3.547315668602996*^9}, 3.5473169596018367`*^9, {3.547317005052437*^9, 
   3.547317005052437*^9}, 3.563406579144394*^9, {3.5634118068802614`*^9, 
   3.5634118068958616`*^9}, 3.563411850919139*^9, 3.5968555177340612`*^9, 
   3.596855645954241*^9, {3.602008665174999*^9, 3.6020086654449997`*^9}, 
   3.6020087030750523`*^9, 3.6020103534373627`*^9, {3.602010809158001*^9, 
   3.6020108282980275`*^9}, {3.602011285128667*^9, 3.6020112888886724`*^9}, {
   3.602011517248992*^9, 3.602011517248992*^9}, {3.6020254812202*^9, 
   3.6020254865052075`*^9}, {3.602027154619585*^9, 3.602027168659604*^9}, {
   3.602027240159704*^9, 3.602027240159704*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4983206021865325`*^9, {3.498326040356801*^9, 3.498326049592017*^9}, {
   3.4983263025932617`*^9, 3.498326308365272*^9}, {3.510260940930415*^9, 
   3.51026094460042*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     SqrtBox[
      RowBox[{"a", " ", 
       RowBox[{"F", "[", "x", "]"}]}]], 
     SqrtBox[
      RowBox[{"b", " ", 
       RowBox[{"F", "[", "x", "]"}]}]]]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980704431694036`*^9, {
   3.498320837060545*^9, 3.4983208718174057`*^9}, 3.4983264799655733`*^9, {
   3.4983265293864603`*^9, 3.4983265518504996`*^9}, {3.510260868510313*^9, 
   3.510260895210351*^9}, {3.5102609859104776`*^9, 3.5102609865504785`*^9}, {
   3.511714714700369*^9, 3.5117147350740047`*^9}, {3.5117152169432507`*^9, 
   3.5117152315916767`*^9}, {3.5117561659742937`*^9, 
   3.5117561659742937`*^9}, {3.5118185923538933`*^9, 
   3.5118186314339476`*^9}, {3.511818664503994*^9, 3.5118186916940317`*^9}, 
   3.5145721515462685`*^9, {3.545415611111212*^9, 3.545415612296814*^9}, {
   3.5454156443548703`*^9, 3.5454156450100718`*^9}, {3.54612527918394*^9, 
   3.54612529305396*^9}, {3.546125371024069*^9, 3.546125374674074*^9}, {
   3.5622930416578875`*^9, 3.562293044597892*^9}, {3.5634175889944005`*^9, 
   3.5634175889944005`*^9}, {3.596855519174063*^9, 3.596855519174063*^9}, {
   3.5968559823647118`*^9, 3.5968559829347124`*^9}, {3.6020104573875084`*^9, 
   3.6020104573875084`*^9}, {3.602011219948576*^9, 3.602011222418579*^9}, {
   3.602011367778783*^9, 3.6020113690887847`*^9}, {3.602025545975293*^9, 
   3.6020255481202965`*^9}}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "-", 
    FractionBox["1", "2"]}], "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", "v"}], ")"}], "n"], "\[Equal]", 
   RowBox[{
    FractionBox[
     RowBox[{
      SuperscriptBox["b", 
       RowBox[{"n", "+", 
        FractionBox["1", "2"]}]], 
      SqrtBox[
       RowBox[{"a", " ", "v"}]]}], 
     RowBox[{
      SuperscriptBox["a", 
       RowBox[{"n", "+", 
        FractionBox["1", "2"]}]], 
      SqrtBox[
       RowBox[{"b", " ", "v"}]]}]], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", " ", "v"}], ")"}], "n"]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980704431694036`*^9, {
   3.498320837060545*^9, 3.4983208718174057`*^9}, 3.4983264799655733`*^9, {
   3.4983265293864603`*^9, 3.4983265518504996`*^9}, {3.510260868510313*^9, 
   3.510260895210351*^9}, {3.5102609859104776`*^9, 3.5102609865504785`*^9}, {
   3.511714714700369*^9, 3.5117147350740047`*^9}, {3.5117152169432507`*^9, 
   3.5117152315916767`*^9}, {3.5117561659742937`*^9, 
   3.5117561659742937`*^9}, {3.5118185923538933`*^9, 
   3.5118186314339476`*^9}, {3.511818664503994*^9, 3.5118186916940317`*^9}, 
   3.5145721515462685`*^9, {3.545415611111212*^9, 3.545415612296814*^9}, {
   3.5454156443548703`*^9, 3.5454156450100718`*^9}, {3.54612527918394*^9, 
   3.54612529305396*^9}, {3.546125371024069*^9, 3.546125374674074*^9}, {
   3.5622930416578875`*^9, 3.562293044597892*^9}, {3.5634175889944005`*^9, 
   3.5634175889944005`*^9}, {3.596855519174063*^9, 3.596855519174063*^9}, {
   3.5968559823647118`*^9, 3.5968559829347124`*^9}, {3.6020104573875084`*^9, 
   3.6020104573875084`*^9}, {3.6020108510280595`*^9, 3.602010868118083*^9}, {
   3.602011418298854*^9, 3.602011418298854*^9}, {3.602011528019007*^9, 
   3.602011528019007*^9}, {3.6020253954150767`*^9, 3.6020253954150767`*^9}, {
   3.6020254339551325`*^9, 3.6020254339551325`*^9}, {3.602025517170252*^9, 
   3.602025519145254*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
   " ", 
   RowBox[{
    RowBox[{"n", "-", 
     FractionBox["1", "2"]}], "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}], "\[And]", " ", 
   RowBox[{
    RowBox[{"m", "+", "n"}], "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9, 
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9, 
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.500345120088499*^9, 
   3.500345127428509*^9}, {3.500410576940289*^9, 3.5004105779663477`*^9}, {
   3.5004106327664824`*^9, 3.500410643898119*^9}, {3.500429569940626*^9, 
   3.500429571675726*^9}, {3.502204840167862*^9, 3.502204842617066*^9}, 
   3.5023038294281306`*^9, {3.504362658868907*^9, 3.504362660078909*^9}, {
   3.50436465472136*^9, 3.5043646556213617`*^9}, {3.504839359121956*^9, 
   3.5048393791619835`*^9}, {3.504839672312394*^9, 3.5048396733523955`*^9}, 
   3.5098341584452877`*^9, {3.5101828092264166`*^9, 3.5101828193196344`*^9}, {
   3.511715292228983*^9, 3.511715334692258*^9}, {3.5117155048269134`*^9, 
   3.511715508166918*^9}, {3.5117295035766306`*^9, 3.511729505106633*^9}, {
   3.511750898236919*^9, 3.5117508991769204`*^9}, {3.5117555222533927`*^9, 
   3.5117555300634036`*^9}, {3.5118334045968*^9, 3.511833408403207*^9}, 
   3.5145720728661585`*^9, {3.514856031797722*^9, 3.5148560328117237`*^9}, {
   3.5151816617393637`*^9, 3.515181662316565*^9}, {3.545415625915638*^9, 
   3.5454156332008505`*^9}, {3.5454300704751377`*^9, 3.545430071215139*^9}, {
   3.546125159633773*^9, 3.546125160493774*^9}, {3.546214650777447*^9, 
   3.546214650777447*^9}, {3.547315700922845*^9, 3.547315700922845*^9}, {
   3.5473170462477927`*^9, 3.5473170462477927`*^9}, {3.6020107326578937`*^9, 
   3.6020107326578937`*^9}, {3.602010842968048*^9, 3.602010842968048*^9}, {
   3.602011432008873*^9, 3.602011432008873*^9}, {3.6020115210489974`*^9, 
   3.6020115210489974`*^9}, {3.6020254952952204`*^9, 
   3.6020254952952204`*^9}, {3.602027353319863*^9, 3.602027353319863*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{"u", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", " ", "v"}], ")"}], "m"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", "v"}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["a", 
        RowBox[{"m", "-", 
         FractionBox["1", "2"]}]], 
       SuperscriptBox["b", 
        RowBox[{"n", "+", 
         FractionBox["1", "2"]}]], 
       SqrtBox[
        RowBox[{"a", " ", "v"}]]}], 
      SqrtBox[
       RowBox[{"b", " ", "v"}]]]}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{"u", " ", 
     SuperscriptBox["v", 
      RowBox[{"m", "+", "n"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9, 
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9, 
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9, 
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9, 
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9, 
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9, 
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9, 
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9, 
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9, 
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.5040325720154343`*^9, 
   3.5040325776782446`*^9}, 3.505344641413784*^9, {3.5053446931638565`*^9, 
   3.505344715023887*^9}, 3.5053535547652063`*^9, {3.509472692844695*^9, 
   3.509472735704147*^9}, {3.5094728451264057`*^9, 3.509472933684471*^9}, {
   3.5098341849653344`*^9, 3.509834296848731*^9}, {3.5098343294527884`*^9, 
   3.509834364194049*^9}, 3.5098346591437674`*^9, {3.5098347856443896`*^9, 
   3.5098347898251967`*^9}, {3.5098348311028695`*^9, 
   3.5098349107098093`*^9}, {3.5098349437662673`*^9, 3.509834983374737*^9}, 
   3.5098350560552645`*^9, {3.5098351175973725`*^9, 3.509835139499811*^9}, 
   3.5098475309589915`*^9, {3.510182683146995*^9, 3.5101826880610037`*^9}, {
   3.5101828251228447`*^9, 3.5101828513152905`*^9}, {3.510182945071455*^9, 
   3.5101829454458556`*^9}, {3.511714482540761*^9, 3.5117145274688396`*^9}, {
   3.5117145862341433`*^9, 3.5117146153281946`*^9}, {3.5117147853060927`*^9, 
   3.511714803090124*^9}, {3.5117151505963345`*^9, 3.5117151632479568`*^9}, {
   3.511715744517249*^9, 3.511715747287253*^9}, {3.5118158169600077`*^9, 
   3.511815862160071*^9}, 3.511815909280137*^9, {3.5118176520325766`*^9, 
   3.5118176689026003`*^9}, 3.5118179461929884`*^9, {3.511819812927603*^9, 
   3.5118198181376104`*^9}, {3.5118198622576723`*^9, 3.511819864577675*^9}, {
   3.5145719907960434`*^9, 3.51457201659608*^9}, {3.514572326606514*^9, 
   3.514572331676521*^9}, {3.51516810299435*^9, 3.515168104974353*^9}, {
   3.546125202673833*^9, 3.5461252302438717`*^9}, {3.5634118069270616`*^9, 
   3.5634118069582615`*^9}, {3.5634118519019403`*^9, 3.5634118524323416`*^9}, 
   3.563412172970504*^9, {3.5968555202140646`*^9, 3.5968555212540665`*^9}, 
   3.596855650024246*^9, {3.59685576642441*^9, 3.5968557670244102`*^9}, 
   3.596855806694466*^9, 3.5968559528046703`*^9, {3.602008665795*^9, 
   3.602008667215002*^9}, {3.602010361607374*^9, 3.602010427267466*^9}, 
   3.602010902798132*^9, {3.602011337758741*^9, 3.60201135147876*^9}, 
   3.6020242704484625`*^9, {3.6020253792950535`*^9, 3.6020253889800673`*^9}, 
   3.602025569170326*^9, {3.602027457480009*^9, 3.6020275041200743`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.5968560478048034`*^9, 3.5968560671348305`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"u_.", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", "v_"}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", "v_"}], ")"}], "^", "n_"}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"a", "^", 
     RowBox[{"(", 
      RowBox[{"m", "-", 
       RowBox[{"1", "/", "2"}]}], ")"}]}], "*", 
    RowBox[{"b", "^", 
     RowBox[{"(", 
      RowBox[{"n", "+", 
       RowBox[{"1", "/", "2"}]}], ")"}]}], "*", 
    RowBox[{
     RowBox[{"Sqrt", "[", 
      RowBox[{"a", "*", "v"}], "]"}], "/", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"b", "*", "v"}], "]"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{"u", "*", 
       RowBox[{"v", "^", 
        RowBox[{"(", 
         RowBox[{"m", "+", "n"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "m"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "m", "]"}], "]"}], " ", "&&", " ", 
    RowBox[{"ILtQ", "[", 
     RowBox[{
      RowBox[{"n", "-", 
       RowBox[{"1", "/", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"m", "+", "n"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9, 
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9, 
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9}, 
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9, 
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9}, 
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9, 
   3.4992127382126956`*^9}, {3.4992128038327875`*^9, 
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9, 
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9, 
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9, 
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9}, 
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9}, 
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9, 
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9, 
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9, 
   3.5010431675511227`*^9}, {3.5013560814295626`*^9, 
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9, 
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9}, 
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9}, 
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9, 
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9}, 
   3.5027656584730268`*^9, 3.5027671152479863`*^9, {3.5030718189880323`*^9, 
   3.5030718291780467`*^9}, 3.5038761961479836`*^9, {3.504156546965613*^9, 
   3.504156548322815*^9}, {3.5042968954456654`*^9, 3.5042969168056955`*^9}, {
   3.5051010426366124`*^9, 3.505101050326623*^9}, 3.5053446414337845`*^9, {
   3.5053446931938567`*^9, 3.505344715043887*^9}, 3.50535355708521*^9, {
   3.509473076633647*^9, 3.509473117827003*^9}, 3.509473221522934*^9, {
   3.5094732830534534`*^9, 3.509473292318983*^9}, {3.5094751195374947`*^9, 
   3.5094751247597933`*^9}, 3.5098352718192434`*^9, {3.509835307137706*^9, 
   3.5098353487273784`*^9}, {3.509847535218998*^9, 3.5098475613690343`*^9}, {
   3.5101827112582445`*^9, 3.510182715657452*^9}, {3.510182781661168*^9, 
   3.5101827868091774`*^9}, {3.5101830769696865`*^9, 3.510183111738948*^9}, {
   3.5101832687064238`*^9, 3.5101832709372272`*^9}, {3.511715355721095*^9, 
   3.5117153607131033`*^9}, {3.511715428066806*^9, 3.5117154599968505`*^9}, {
   3.511715511146922*^9, 3.5117155141269264`*^9}, {3.511715565286998*^9, 
   3.5117155864270277`*^9}, {3.511715750947258*^9, 3.5117157539772625`*^9}, {
   3.5117293456064095`*^9, 3.5117294275865245`*^9}, {3.5117296689768624`*^9, 
   3.5117296728068676`*^9}, {3.5117302889377303`*^9, 3.5117303011477475`*^9}, 
   3.5117466386965055`*^9, {3.511750894036913*^9, 3.511750894676914*^9}, {
   3.5117511267572393`*^9, 3.5117511307372446`*^9}, {3.5117512119573584`*^9, 
   3.511751214027361*^9}, {3.511751883348298*^9, 3.5117518878683043`*^9}, {
   3.5117519413583794`*^9, 3.511751948148389*^9}, {3.5117521986187396`*^9, 
   3.511752203998747*^9}, {3.511755503353366*^9, 3.5117555064233704`*^9}, {
   3.5118335100217853`*^9, 3.5118335340614276`*^9}, 3.5145720383461103`*^9, {
   3.5145721800463085`*^9, 3.5145722335263834`*^9}, {3.5145723389965315`*^9, 
   3.5145723423365355`*^9}, {3.5145724500966864`*^9, 3.514572450266687*^9}, 
   3.516820646406448*^9, {3.5418961167530327`*^9, 3.541896117983034*^9}, {
   3.5449827397744484`*^9, 3.544982749304462*^9}, 3.5461060983374033`*^9, {
   3.5461064994141073`*^9, 3.546106521269746*^9}, 3.546106612139906*^9, 
   3.546125075313655*^9, {3.546125116593713*^9, 3.546125139913745*^9}, {
   3.5462146339374237`*^9, 3.5462146423374357`*^9}, {3.547315350968828*^9, 
   3.5473153548750515`*^9}, {3.5473156828768125`*^9, 3.547315687131056*^9}, 
   3.5473170592375355`*^9, {3.5631229771336594`*^9, 3.5631229815328665`*^9}, {
   3.5631246086173153`*^9, 3.563124620309984*^9}, {3.563126725785471*^9, 
   3.563126727675473*^9}, {3.5634118229326897`*^9, 3.56341182294829*^9}, 
   3.563411889878007*^9, {3.5634119390492935`*^9, 3.5634119861613765`*^9}, 
   3.563412037625867*^9, {3.596855522504068*^9, 3.596855524424071*^9}, {
   3.5968560480448036`*^9, 3.596856051864809*^9}, {3.5968561100448904`*^9, 
   3.5968561150448976`*^9}, {3.596856155344954*^9, 3.5968561614149623`*^9}, {
   3.5968561924850063`*^9, 3.5968561951750097`*^9}, {3.602008667915003*^9, 
   3.602008668625004*^9}, {3.6020087660151405`*^9, 3.6020087665551414`*^9}, {
   3.602009139125663*^9, 3.602009162565696*^9}, {3.602010940648185*^9, 
   3.602010952988202*^9}, {3.602010985078247*^9, 3.602011013908287*^9}, {
   3.6020110477783346`*^9, 3.6020110551183453`*^9}, {3.602011093608399*^9, 
   3.602011161578494*^9}, 3.6020114970789638`*^9, {3.6020115574590483`*^9, 
   3.6020115609890532`*^9}, {3.6020255838253474`*^9, 
   3.6020256030353746`*^9}, {3.6020256334504185`*^9, 3.602025665280464*^9}, 
   3.602027347579855*^9, {3.602027604210214*^9, 3.602027613490227*^9}, {
   3.602028792681878*^9, 3.602028802621892*^9}, {3.6020296465630736`*^9, 
   3.6020296593730917`*^9}, {3.7154740553140025`*^9, 3.7154740609263234`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["x:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{"u", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", "v"}], ")"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", "v"}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{"n", "-", 
         FractionBox["1", "2"]}], "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}], "\[And]", " ", 
       RowBox[{
        RowBox[{"m", "+", "n"}], "\[NotElement]", 
        "\[DoubleStruckCapitalZ]"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9, 
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9, 
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9}, 
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9, 
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9}, 
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9, 
   3.5403192458899937`*^9}, {3.5403196532852955`*^9, 
   3.5403196542853527`*^9}, {3.5404234472634363`*^9, 
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9, 
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, 
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9, 
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9, 
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9, 
   3.5454155892399735`*^9}, {3.545415619784827*^9, 3.5454156634961042`*^9}, 
   3.5454967587771344`*^9, {3.5461251637537785`*^9, 3.54612516456378*^9}, 
   3.5461253929840994`*^9, {3.546214618327402*^9, 3.5462146288774166`*^9}, {
   3.54731553719248*^9, 3.547315538735568*^9}, {3.547315667657942*^9, 
   3.547315668602996*^9}, 3.5473169596018367`*^9, {3.547317005052437*^9, 
   3.547317005052437*^9}, 3.563406579144394*^9, {3.5634118068802614`*^9, 
   3.5634118068958616`*^9}, 3.563411850919139*^9, 3.5968555177340612`*^9, 
   3.596855645954241*^9, {3.602008665174999*^9, 3.6020086654449997`*^9}, 
   3.6020087030750523`*^9, 3.6020103534373627`*^9, {3.602010809158001*^9, 
   3.6020108282980275`*^9}, {3.602011285128667*^9, 3.6020112888886724`*^9}, {
   3.602011517248992*^9, 3.602011517248992*^9}, {3.6020254812202*^9, 
   3.6020254865052075`*^9}, 3.602027154619585*^9, {3.60202725118972*^9, 
   3.6020272560597267`*^9}, {3.602030555424346*^9, 3.602030555674346*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4983206021865325`*^9, {3.498326040356801*^9, 3.498326049592017*^9}, {
   3.4983263025932617`*^9, 3.498326308365272*^9}, {3.510260940930415*^9, 
   3.51026094460042*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     SqrtBox[
      RowBox[{"a", " ", 
       RowBox[{"F", "[", "x", "]"}]}]], 
     SqrtBox[
      RowBox[{"b", " ", 
       RowBox[{"F", "[", "x", "]"}]}]]]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980704431694036`*^9, {
   3.498320837060545*^9, 3.4983208718174057`*^9}, 3.4983264799655733`*^9, {
   3.4983265293864603`*^9, 3.4983265518504996`*^9}, {3.510260868510313*^9, 
   3.510260895210351*^9}, {3.5102609859104776`*^9, 3.5102609865504785`*^9}, {
   3.511714714700369*^9, 3.5117147350740047`*^9}, {3.5117152169432507`*^9, 
   3.5117152315916767`*^9}, {3.5117561659742937`*^9, 
   3.5117561659742937`*^9}, {3.5118185923538933`*^9, 
   3.5118186314339476`*^9}, {3.511818664503994*^9, 3.5118186916940317`*^9}, 
   3.5145721515462685`*^9, {3.545415611111212*^9, 3.545415612296814*^9}, {
   3.5454156443548703`*^9, 3.5454156450100718`*^9}, {3.54612527918394*^9, 
   3.54612529305396*^9}, {3.546125371024069*^9, 3.546125374674074*^9}, {
   3.5622930416578875`*^9, 3.562293044597892*^9}, {3.5634175889944005`*^9, 
   3.5634175889944005`*^9}, {3.596855519174063*^9, 3.596855519174063*^9}, {
   3.5968559823647118`*^9, 3.5968559829347124`*^9}, {3.6020104573875084`*^9, 
   3.6020104573875084`*^9}, {3.602011219948576*^9, 3.602011222418579*^9}, {
   3.602011367778783*^9, 3.6020113690887847`*^9}, {3.602025545975293*^9, 
   3.6020255481202965`*^9}}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "-", 
    FractionBox["1", "2"]}], "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", "v"}], ")"}], "n"], "\[Equal]", 
   RowBox[{
    FractionBox[
     RowBox[{
      SuperscriptBox["b", 
       RowBox[{"n", "+", 
        FractionBox["1", "2"]}]], 
      SqrtBox[
       RowBox[{"a", " ", "v"}]]}], 
     RowBox[{
      SuperscriptBox["a", 
       RowBox[{"n", "+", 
        FractionBox["1", "2"]}]], 
      SqrtBox[
       RowBox[{"b", " ", "v"}]]}]], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", " ", "v"}], ")"}], "n"]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980704431694036`*^9, {
   3.498320837060545*^9, 3.4983208718174057`*^9}, 3.4983264799655733`*^9, {
   3.4983265293864603`*^9, 3.4983265518504996`*^9}, {3.510260868510313*^9, 
   3.510260895210351*^9}, {3.5102609859104776`*^9, 3.5102609865504785`*^9}, {
   3.511714714700369*^9, 3.5117147350740047`*^9}, {3.5117152169432507`*^9, 
   3.5117152315916767`*^9}, {3.5117561659742937`*^9, 
   3.5117561659742937`*^9}, {3.5118185923538933`*^9, 
   3.5118186314339476`*^9}, {3.511818664503994*^9, 3.5118186916940317`*^9}, 
   3.5145721515462685`*^9, {3.545415611111212*^9, 3.545415612296814*^9}, {
   3.5454156443548703`*^9, 3.5454156450100718`*^9}, {3.54612527918394*^9, 
   3.54612529305396*^9}, {3.546125371024069*^9, 3.546125374674074*^9}, {
   3.5622930416578875`*^9, 3.562293044597892*^9}, {3.5634175889944005`*^9, 
   3.5634175889944005`*^9}, {3.596855519174063*^9, 3.596855519174063*^9}, {
   3.5968559823647118`*^9, 3.5968559829347124`*^9}, {3.6020104573875084`*^9, 
   3.6020104573875084`*^9}, {3.6020108510280595`*^9, 3.602010868118083*^9}, {
   3.602011418298854*^9, 3.602011418298854*^9}, {3.602011528019007*^9, 
   3.602011528019007*^9}, {3.6020253954150767`*^9, 3.6020253954150767`*^9}, {
   3.6020254339551325`*^9, 3.6020254339551325`*^9}, {3.602025517170252*^9, 
   3.602025519145254*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
   " ", 
   RowBox[{
    RowBox[{"n", "-", 
     FractionBox["1", "2"]}], "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}], "\[And]", " ", 
   RowBox[{
    RowBox[{"m", "+", "n"}], "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9, 
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9, 
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.500345120088499*^9, 
   3.500345127428509*^9}, {3.500410576940289*^9, 3.5004105779663477`*^9}, {
   3.5004106327664824`*^9, 3.500410643898119*^9}, {3.500429569940626*^9, 
   3.500429571675726*^9}, {3.502204840167862*^9, 3.502204842617066*^9}, 
   3.5023038294281306`*^9, {3.504362658868907*^9, 3.504362660078909*^9}, {
   3.50436465472136*^9, 3.5043646556213617`*^9}, {3.504839359121956*^9, 
   3.5048393791619835`*^9}, {3.504839672312394*^9, 3.5048396733523955`*^9}, 
   3.5098341584452877`*^9, {3.5101828092264166`*^9, 3.5101828193196344`*^9}, {
   3.511715292228983*^9, 3.511715334692258*^9}, {3.5117155048269134`*^9, 
   3.511715508166918*^9}, {3.5117295035766306`*^9, 3.511729505106633*^9}, {
   3.511750898236919*^9, 3.5117508991769204`*^9}, {3.5117555222533927`*^9, 
   3.5117555300634036`*^9}, {3.5118334045968*^9, 3.511833408403207*^9}, 
   3.5145720728661585`*^9, {3.514856031797722*^9, 3.5148560328117237`*^9}, {
   3.5151816617393637`*^9, 3.515181662316565*^9}, {3.545415625915638*^9, 
   3.5454156332008505`*^9}, {3.5454300704751377`*^9, 3.545430071215139*^9}, {
   3.546125159633773*^9, 3.546125160493774*^9}, {3.546214650777447*^9, 
   3.546214650777447*^9}, {3.547315700922845*^9, 3.547315700922845*^9}, {
   3.5473170462477927`*^9, 3.5473170462477927`*^9}, {3.6020107326578937`*^9, 
   3.6020107326578937`*^9}, {3.602010842968048*^9, 3.602010842968048*^9}, {
   3.602011432008873*^9, 3.602011432008873*^9}, {3.6020115210489974`*^9, 
   3.6020115210489974`*^9}, {3.6020254952952204`*^9, 
   3.6020254952952204`*^9}, {3.6020273110198035`*^9, 3.6020273110198035`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{"u", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", " ", "v"}], ")"}], "m"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", "v"}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["b", 
        RowBox[{"n", "+", 
         FractionBox["1", "2"]}]], 
       SqrtBox[
        RowBox[{"a", " ", "v"}]]}], 
      RowBox[{
       SuperscriptBox["a", 
        RowBox[{"n", "+", 
         FractionBox["1", "2"]}]], 
       SqrtBox[
        RowBox[{"b", " ", "v"}]]}]]}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{"u", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", "v"}], ")"}], 
      RowBox[{"m", "+", "n"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9, 
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9, 
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9, 
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9, 
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9, 
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9, 
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9, 
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9, 
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9, 
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.5040325720154343`*^9, 
   3.5040325776782446`*^9}, 3.505344641413784*^9, {3.5053446931638565`*^9, 
   3.505344715023887*^9}, 3.5053535547652063`*^9, {3.509472692844695*^9, 
   3.509472735704147*^9}, {3.5094728451264057`*^9, 3.509472933684471*^9}, {
   3.5098341849653344`*^9, 3.509834296848731*^9}, {3.5098343294527884`*^9, 
   3.509834364194049*^9}, 3.5098346591437674`*^9, {3.5098347856443896`*^9, 
   3.5098347898251967`*^9}, {3.5098348311028695`*^9, 
   3.5098349107098093`*^9}, {3.5098349437662673`*^9, 3.509834983374737*^9}, 
   3.5098350560552645`*^9, {3.5098351175973725`*^9, 3.509835139499811*^9}, 
   3.5098475309589915`*^9, {3.510182683146995*^9, 3.5101826880610037`*^9}, {
   3.5101828251228447`*^9, 3.5101828513152905`*^9}, {3.510182945071455*^9, 
   3.5101829454458556`*^9}, {3.511714482540761*^9, 3.5117145274688396`*^9}, {
   3.5117145862341433`*^9, 3.5117146153281946`*^9}, {3.5117147853060927`*^9, 
   3.511714803090124*^9}, {3.5117151505963345`*^9, 3.5117151632479568`*^9}, {
   3.511715744517249*^9, 3.511715747287253*^9}, {3.5118158169600077`*^9, 
   3.511815862160071*^9}, 3.511815909280137*^9, {3.5118176520325766`*^9, 
   3.5118176689026003`*^9}, 3.5118179461929884`*^9, {3.511819812927603*^9, 
   3.5118198181376104`*^9}, {3.5118198622576723`*^9, 3.511819864577675*^9}, {
   3.5145719907960434`*^9, 3.51457201659608*^9}, {3.514572326606514*^9, 
   3.514572331676521*^9}, {3.51516810299435*^9, 3.515168104974353*^9}, {
   3.546125202673833*^9, 3.5461252302438717`*^9}, {3.5634118069270616`*^9, 
   3.5634118069582615`*^9}, {3.5634118519019403`*^9, 3.5634118524323416`*^9}, 
   3.563412172970504*^9, {3.5968555202140646`*^9, 3.5968555212540665`*^9}, 
   3.596855650024246*^9, {3.59685576642441*^9, 3.5968557670244102`*^9}, 
   3.596855806694466*^9, 3.5968559528046703`*^9, {3.602008665795*^9, 
   3.602008667215002*^9}, {3.602010361607374*^9, 3.602010427267466*^9}, 
   3.602010902798132*^9, {3.602011337758741*^9, 3.60201135147876*^9}, 
   3.6020242704484625`*^9, {3.6020253792950535`*^9, 3.6020253889800673`*^9}, 
   3.602025569170326*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.5968560478048034`*^9, 3.5968560671348305`*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"u_.", "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a_.", "*", "v_"}], ")"}], "^", "m_"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b_.", "*", "v_"}], ")"}], "^", "n_"}]}], ",", "x_Symbol"}], 
    "]"}], " ", ":=", "\n", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{"b", "^", 
      RowBox[{"(", 
       RowBox[{"n", "+", 
        RowBox[{"1", "/", "2"}]}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Sqrt", "[", 
       RowBox[{"a", "*", "v"}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", "^", 
         RowBox[{"(", 
          RowBox[{"n", "+", 
           RowBox[{"1", "/", "2"}]}], ")"}]}], "*", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"b", "*", "v"}], "]"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"u", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "*", "v"}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "n"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
    "\n", 
    RowBox[{
     RowBox[{"FreeQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"a", ",", "b", ",", "m"}], "}"}], ",", "x"}], "]"}], " ", "&&",
      " ", 
     RowBox[{"Not", "[", 
      RowBox[{"IntegerQ", "[", "m", "]"}], "]"}], " ", "&&", " ", 
     RowBox[{"ILtQ", "[", 
      RowBox[{
       RowBox[{"n", "-", 
        RowBox[{"1", "/", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
     RowBox[{"Not", "[", 
      RowBox[{"IntegerQ", "[", 
       RowBox[{"m", "+", "n"}], "]"}], "]"}]}]}]}], " ", "*)"}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9, 
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9, 
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9}, 
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9, 
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9}, 
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9, 
   3.4992127382126956`*^9}, {3.4992128038327875`*^9, 
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9, 
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9, 
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9, 
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9}, 
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9}, 
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9, 
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9, 
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9, 
   3.5010431675511227`*^9}, {3.5013560814295626`*^9, 
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9, 
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9}, 
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9}, 
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9, 
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9}, 
   3.5027656584730268`*^9, 3.5027671152479863`*^9, {3.5030718189880323`*^9, 
   3.5030718291780467`*^9}, 3.5038761961479836`*^9, {3.504156546965613*^9, 
   3.504156548322815*^9}, {3.5042968954456654`*^9, 3.5042969168056955`*^9}, {
   3.5051010426366124`*^9, 3.505101050326623*^9}, 3.5053446414337845`*^9, {
   3.5053446931938567`*^9, 3.505344715043887*^9}, 3.50535355708521*^9, {
   3.509473076633647*^9, 3.509473117827003*^9}, 3.509473221522934*^9, {
   3.5094732830534534`*^9, 3.509473292318983*^9}, {3.5094751195374947`*^9, 
   3.5094751247597933`*^9}, 3.5098352718192434`*^9, {3.509835307137706*^9, 
   3.5098353487273784`*^9}, {3.509847535218998*^9, 3.5098475613690343`*^9}, {
   3.5101827112582445`*^9, 3.510182715657452*^9}, {3.510182781661168*^9, 
   3.5101827868091774`*^9}, {3.5101830769696865`*^9, 3.510183111738948*^9}, {
   3.5101832687064238`*^9, 3.5101832709372272`*^9}, {3.511715355721095*^9, 
   3.5117153607131033`*^9}, {3.511715428066806*^9, 3.5117154599968505`*^9}, {
   3.511715511146922*^9, 3.5117155141269264`*^9}, {3.511715565286998*^9, 
   3.5117155864270277`*^9}, {3.511715750947258*^9, 3.5117157539772625`*^9}, {
   3.5117293456064095`*^9, 3.5117294275865245`*^9}, {3.5117296689768624`*^9, 
   3.5117296728068676`*^9}, {3.5117302889377303`*^9, 3.5117303011477475`*^9}, 
   3.5117466386965055`*^9, {3.511750894036913*^9, 3.511750894676914*^9}, {
   3.5117511267572393`*^9, 3.5117511307372446`*^9}, {3.5117512119573584`*^9, 
   3.511751214027361*^9}, {3.511751883348298*^9, 3.5117518878683043`*^9}, {
   3.5117519413583794`*^9, 3.511751948148389*^9}, {3.5117521986187396`*^9, 
   3.511752203998747*^9}, {3.511755503353366*^9, 3.5117555064233704`*^9}, {
   3.5118335100217853`*^9, 3.5118335340614276`*^9}, 3.5145720383461103`*^9, {
   3.5145721800463085`*^9, 3.5145722335263834`*^9}, {3.5145723389965315`*^9, 
   3.5145723423365355`*^9}, {3.5145724500966864`*^9, 3.514572450266687*^9}, 
   3.516820646406448*^9, {3.5418961167530327`*^9, 3.541896117983034*^9}, {
   3.5449827397744484`*^9, 3.544982749304462*^9}, 3.5461060983374033`*^9, {
   3.5461064994141073`*^9, 3.546106521269746*^9}, 3.546106612139906*^9, 
   3.546125075313655*^9, {3.546125116593713*^9, 3.546125139913745*^9}, {
   3.5462146339374237`*^9, 3.5462146423374357`*^9}, {3.547315350968828*^9, 
   3.5473153548750515`*^9}, {3.5473156828768125`*^9, 3.547315687131056*^9}, 
   3.5473170592375355`*^9, {3.5631229771336594`*^9, 3.5631229815328665`*^9}, {
   3.5631246086173153`*^9, 3.563124620309984*^9}, {3.563126725785471*^9, 
   3.563126727675473*^9}, {3.5634118229326897`*^9, 3.56341182294829*^9}, 
   3.563411889878007*^9, {3.5634119390492935`*^9, 3.5634119861613765`*^9}, 
   3.563412037625867*^9, {3.596855522504068*^9, 3.596855524424071*^9}, {
   3.5968560480448036`*^9, 3.596856051864809*^9}, {3.5968561100448904`*^9, 
   3.5968561150448976`*^9}, {3.596856155344954*^9, 3.5968561614149623`*^9}, {
   3.5968561924850063`*^9, 3.5968561951750097`*^9}, {3.602008667915003*^9, 
   3.602008668625004*^9}, {3.6020087660151405`*^9, 3.6020087665551414`*^9}, {
   3.602009139125663*^9, 3.602009162565696*^9}, {3.602010940648185*^9, 
   3.602010952988202*^9}, {3.602010985078247*^9, 3.602011013908287*^9}, {
   3.6020110477783346`*^9, 3.6020110551183453`*^9}, {3.602011093608399*^9, 
   3.602011161578494*^9}, 3.6020114970789638`*^9, {3.6020115574590483`*^9, 
   3.6020115609890532`*^9}, {3.6020255838253474`*^9, 
   3.6020256030353746`*^9}, {3.6020256334504185`*^9, 3.602025665280464*^9}, 
   3.602027306299797*^9, {3.602028795021881*^9, 3.6020287979418855`*^9}, {
   3.602029647083074*^9, 3.602029660463093*^9}, {3.6020305188742948`*^9, 
   3.6020305238243017`*^9}, {3.7154740735340443`*^9, 3.7154740769722414`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{"u", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", "v"}], ")"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", "v"}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
       "\[And]", " ", 
       RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.4965117206885777`*^9, 3.5192471175756674`*^9, {3.5192587973599553`*^9, 
   3.5192588081399703`*^9}, {3.519321495105319*^9, 3.5193214991925263`*^9}, 
   3.5193247857072587`*^9, {3.5194051897010813`*^9, 3.5194051902791147`*^9}, {
   3.5194055551249824`*^9, 3.5194055708408813`*^9}, {3.519405711316916*^9, 
   3.51940572904193*^9}, {3.519410772192028*^9, 3.5194107776364374`*^9}, {
   3.519413782484516*^9, 3.519413782827717*^9}, {3.519767588664174*^9, 
   3.519767611128214*^9}, {3.5197937941314034`*^9, 3.519793794568204*^9}, {
   3.5197947626591043`*^9, 3.519794764749508*^9}, {3.519794865354085*^9, 
   3.519794874355301*^9}, {3.523218063086026*^9, 3.523218070356036*^9}, {
   3.523316514684347*^9, 3.523316514684347*^9}, {3.5233165475343933`*^9, 
   3.5233165475343933`*^9}, {3.5233184331871357`*^9, 
   3.5233184334271364`*^9}, {3.5273599103435545`*^9, 3.527359910608755*^9}, {
   3.5326424241029196`*^9, 3.53264242435292*^9}, {3.5326584126048727`*^9, 
   3.532658412794873*^9}, {3.532726454021428*^9, 3.5327264542814283`*^9}, {
   3.5327554047263184`*^9, 3.532755404993334*^9}, {3.532798666112293*^9, 
   3.532798676322307*^9}, {3.5328778343810363`*^9, 3.5328778343810363`*^9}, 
   3.5330758294771795`*^9, {3.5330827570868783`*^9, 3.533082757336879*^9}, {
   3.534975097668671*^9, 3.534975097888672*^9}, {3.536863459221404*^9, 
   3.536863459439804*^9}, {3.540264711953947*^9, 3.5402647253239655`*^9}, {
   3.540264783504047*^9, 3.540264783504047*^9}, {3.540502117527218*^9, 
   3.540502117997218*^9}, {3.540502551737826*^9, 3.540502551937826*^9}, {
   3.5449015667548094`*^9, 3.5449015920048447`*^9}, 3.5460201927633896`*^9, {
   3.5460203100335536`*^9, 3.5460203443436017`*^9}, {3.546020448093747*^9, 
   3.5460204510737514`*^9}, 3.5460205170338435`*^9, 3.5460207518641725`*^9, {
   3.5460226623068466`*^9, 3.5460226755968657`*^9}, {3.5460227177169247`*^9, 
   3.5460227177169247`*^9}, {3.546023707982313*^9, 3.546023708262314*^9}, {
   3.546792386446255*^9, 3.5467924010864344`*^9}, {3.546792513166156*^9, 
   3.546792513166156*^9}, {3.5468155143461714`*^9, 3.5468155145261717`*^9}, {
   3.547316201692487*^9, 3.547316219319495*^9}, {3.5473165991182184`*^9, 
   3.5473165991182184`*^9}, {3.547316771379071*^9, 3.5473167909261894`*^9}, 
   3.5473169753797393`*^9, 3.5634065730643854`*^9, {3.5634118068646617`*^9, 
   3.5634118068646617`*^9}, 3.563411850373138*^9, 3.596855515444058*^9, 
   3.5968556255842123`*^9, {3.6020086646049986`*^9, 3.6020086648949986`*^9}, 
   3.6020087016750507`*^9, 3.6020097989165864`*^9, {3.602010766647941*^9, 
   3.6020107759779544`*^9}, {3.602025461220171*^9, 3.6020254630051737`*^9}, {
   3.602026947589295*^9, 3.6020269587993107`*^9}, {3.602028724741783*^9, 
   3.602028724741783*^9}, 3.646955912689513*^9, 3.6469571262492657`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{"u", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", "v"}], ")"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", "v"}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
       "\[And]", " ", 
       RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{"m", "+", "n"}], "\[Element]", 
        "\[DoubleStruckCapitalZ]"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9, 
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9, 
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9}, 
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9, 
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9}, 
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9, 
   3.5403192458899937`*^9}, {3.5403196532852955`*^9, 
   3.5403196542853527`*^9}, {3.5404234472634363`*^9, 
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9, 
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, 
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9, 
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9, 
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9, 
   3.5450601580464125`*^9}, {3.5450602208677225`*^9, 3.545060232349343*^9}, {
   3.5450606692749104`*^9, 3.5450606695869107`*^9}, {3.545064157588436*^9, 
   3.545064173278458*^9}, {3.545064245438559*^9, 3.545064245438559*^9}, {
   3.5450644846488943`*^9, 3.5450644846488943`*^9}, {3.5450645316189594`*^9, 
   3.545064533688963*^9}, 3.545064591839044*^9, 3.5454973483879595`*^9, 
   3.545506097840209*^9, 3.5455157193990145`*^9, 3.5462951690403004`*^9, {
   3.5462964020120263`*^9, 3.5462964133720427`*^9}, 3.5462966455623674`*^9, {
   3.5472311188349724`*^9, 3.54723116715504*^9}, {3.5472318015599303`*^9, 
   3.5472318067199373`*^9}, {3.5472325709010077`*^9, 
   3.5472325766810155`*^9}, {3.5472652760126*^9, 3.547265277682602*^9}, {
   3.547265325642669*^9, 3.547265351422705*^9}, {3.5473157817284665`*^9, 
   3.547315808787014*^9}, {3.547316456343052*^9, 3.5473164563440523`*^9}, 
   3.547316510131129*^9, {3.5473169647091293`*^9, 3.547316965009146*^9}, {
   3.5473170148439965`*^9, 3.5473170148439965`*^9}, 3.5634065737043867`*^9, {
   3.563411807083062*^9, 3.563411807098662*^9}, 3.5634118552091465`*^9, 
   3.5967806211098623`*^9, 3.596855535424086*^9, {3.5968566931157064`*^9, 
   3.596856724855751*^9}, {3.596860122925106*^9, 3.596860122925106*^9}, {
   3.602008671925009*^9, 3.602008672165009*^9}, 3.6020087111350636`*^9, 
   3.6020098018365903`*^9, {3.602010107177018*^9, 3.602010107177018*^9}, {
   3.6020266082888203`*^9, 3.602026619978836*^9}, {3.602026962099315*^9, 
   3.6020269635893173`*^9}, {3.6020287259517846`*^9, 3.6020287259517846`*^9}, 
   3.6469559155395174`*^9, 3.646957127139267*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9, 
   3.497662798718403*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"F", "[", "x", "]"}]}], ")"}], "n"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"F", "[", "x", "]"}]}], ")"}], "n"]]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, 3.497578119962559*^9, {3.5083546016044073`*^9, 
   3.5083546016044073`*^9}, {3.5118050348148956`*^9, 
   3.5118050348148956`*^9}, {3.5462953719105844`*^9, 
   3.5462953727405853`*^9}, {3.546295419610651*^9, 3.546295448940692*^9}, {
   3.546296444592086*^9, 3.5462964544221*^9}, {3.547231239455141*^9, 
   3.5472312497351556`*^9}, {3.563417592214405*^9, 3.563417592214405*^9}, {
   3.5967805962978263`*^9, 3.5967805962978263`*^9}, {3.596855536074087*^9, 
   3.596855536074087*^9}, {3.596856858925939*^9, 3.596856858925939*^9}, {
   3.6020086727950096`*^9, 3.60200867302501*^9}, {3.6020099269167657`*^9, 
   3.6020099269167657`*^9}, {3.6020241279032583`*^9, 3.6020241279032583`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
   " ", 
   RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
   " ", 
   RowBox[{
    RowBox[{"m", "+", "n"}], "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9, 
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9, 
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9, 
   3.5004320093321514`*^9}, {3.5013559257793446`*^9, 
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9, 
   3.5026762588802133`*^9}, {3.5026784726933126`*^9, 
   3.5026784726933126`*^9}, {3.5027658552205725`*^9, 
   3.5027658552205725`*^9}, {3.5027672224669743`*^9, 
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.503812941222491*^9, {
   3.5040286741277885`*^9, 3.50402867512619*^9}, 3.504031838526546*^9, 
   3.504311148611575*^9, {3.504764105847949*^9, 3.5047641154079623`*^9}, {
   3.5047641477280073`*^9, 3.504764147948008*^9}, 3.505005742172364*^9, {
   3.5080368114491596`*^9, 3.5080368579840417`*^9}, 3.5080374691155157`*^9, {
   3.5105233710346155`*^9, 3.510523371184616*^9}, {3.5105252878872995`*^9, 
   3.510525294107308*^9}, {3.51052584282408*^9, 3.51052584282408*^9}, {
   3.510788027396412*^9, 3.510788030076415*^9}, {3.5107882657767453`*^9, 
   3.5107883208568225`*^9}, {3.510789664430705*^9, 3.5107896743807187`*^9}, 
   3.510790463911824*^9, {3.510790613852034*^9, 3.5107906179920397`*^9}, {
   3.510813336637003*^9, 3.510813336637003*^9}, {3.5108459293657985`*^9, 
   3.5108459592866507`*^9}, {3.5139582932649612`*^9, 
   3.5139582932649612`*^9}, {3.5144735590171833`*^9, 3.514473561965588*^9}, {
   3.5144737101346483`*^9, 3.514473715157857*^9}, {3.514473763190342*^9, 
   3.514473764578744*^9}, {3.514496474085927*^9, 3.514496484855942*^9}, {
   3.5148560276013145`*^9, 3.514856028942917*^9}, {3.515181654360551*^9, 
   3.5151816552341523`*^9}, {3.5454155814555597`*^9, 3.545415582563162*^9}, {
   3.545430066735132*^9, 3.545430067215133*^9}, {3.546125031993594*^9, 
   3.546125032823595*^9}, {3.547265353742708*^9, 3.547265353742708*^9}, {
   3.5473158127892427`*^9, 3.5473158127892427`*^9}, {3.5473164670636654`*^9, 
   3.5473164670636654`*^9}, {3.5473171298465743`*^9, 
   3.5473171298465743`*^9}, {3.5968568820259714`*^9, 
   3.5968568820259714`*^9}, {3.596860124345108*^9, 3.596860124345108*^9}, {
   3.6020101159170303`*^9, 3.6020101159170303`*^9}, {3.602026630708851*^9, 
   3.602026630708851*^9}, {3.6020287268117857`*^9, 3.6020287268117857`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{"u", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", " ", "v"}], ")"}], "m"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", "v"}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["a", 
        RowBox[{"m", "+", "n"}]], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"b", " ", "v"}], ")"}], "n"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", " ", "v"}], ")"}], "n"]]}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{"u", " ", 
     SuperscriptBox["v", 
      RowBox[{"m", "+", "n"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.4975780293224325`*^9, {3.4975823372004642`*^9, 
   3.4975823431504726`*^9}, {3.4979216297682095`*^9, 
   3.4979216297682095`*^9}, {3.505344687863849*^9, 3.505344687863849*^9}, {
   3.5074187348633986`*^9, 3.5074187409134073`*^9}, {3.5098471722784896`*^9, 
   3.509847174858493*^9}, 3.51180499522484*^9, {3.5151676155136676`*^9, 
   3.5151676298736877`*^9}, 3.541101803256009*^9, {3.541115802450629*^9, 
   3.541115829936912*^9}, {3.5411170533806067`*^9, 3.541117065630624*^9}, {
   3.546296428072063*^9, 3.546296438832078*^9}, {3.546296483582141*^9, 
   3.5462964919121523`*^9}, {3.547231194825079*^9, 3.547231229775128*^9}, {
   3.547232589761034*^9, 3.5472325935810394`*^9}, {3.563411807114262*^9, 
   3.563411807145462*^9}, {3.563411855770747*^9, 3.563411856847149*^9}, {
   3.5967805553477693`*^9, 3.5967805891378164`*^9}, {3.596855536844088*^9, 
   3.5968555374140887`*^9}, {3.5968567265057535`*^9, 
   3.5968567426657763`*^9}, {3.5968567928758464`*^9, 3.596856829095897*^9}, {
   3.6020086732550106`*^9, 3.6020086747050123`*^9}, {3.6020098091466007`*^9, 
   3.6020098268166256`*^9}, {3.602009861856674*^9, 3.602009876476695*^9}, {
   3.6020240827556934`*^9, 3.6020240939157095`*^9}, {3.602026704918955*^9, 
   3.6020267159889708`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"u_.", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", "v_"}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", "v_"}], ")"}], "^", "n_"}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"a", "^", 
     RowBox[{"(", 
      RowBox[{"m", "+", "n"}], ")"}]}], "*", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b", "*", "v"}], ")"}], "^", "n"}], "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "*", "v"}], ")"}], "^", "n"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{"u", "*", 
       RowBox[{"v", "^", 
        RowBox[{"(", 
         RowBox[{"m", "+", "n"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "m", ",", "n"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "m", "]"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "n", "]"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"m", "+", "n"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.497577987032373*^9, {
   3.4979216297682095`*^9, 3.497921629783809*^9}, 3.4979230300422688`*^9, {
   3.505344687883849*^9, 3.505344687883849*^9}, 3.5074187847234683`*^9, {
   3.509847176848496*^9, 3.5098471799084997`*^9}, {3.511804078821556*^9, 
   3.511804083061562*^9}, {3.5118050548249235`*^9, 3.511805058434929*^9}, 
   3.511805389089394*^9, {3.514174480826256*^9, 3.5141744852722635`*^9}, {
   3.5141751035821505`*^9, 3.514175106764556*^9}, 3.5141774512366753`*^9, {
   3.5410976974308376`*^9, 3.5410977100668592`*^9}, {3.5411018263752494`*^9, 
   3.5411018402280736`*^9}, {3.541116030157608*^9, 3.541116035122864*^9}, {
   3.541117072180633*^9, 3.5411170753206377`*^9}, {3.5450643579287167`*^9, 
   3.5450643666987286`*^9}, {3.5450644187188015`*^9, 
   3.5450644238188086`*^9}, {3.5462953176805086`*^9, 3.546295320140512*^9}, {
   3.5462965514222355`*^9, 3.546296585122283*^9}, 3.5462967357824936`*^9, {
   3.547231380239341*^9, 3.5472314258094044`*^9}, 3.5472318122599454`*^9, {
   3.5472326044910545`*^9, 3.547232608911061*^9}, {3.5472327472812543`*^9, 
   3.5472327734712915`*^9}, {3.5472653618527203`*^9, 
   3.5472653696227307`*^9}, {3.547315815603404*^9, 3.547315816334446*^9}, {
   3.5473164515197763`*^9, 3.547316451722788*^9}, 3.5473171399381514`*^9, {
   3.5631229227987633`*^9, 3.5631229260747695`*^9}, 3.5631230333873577`*^9, {
   3.563126703543435*^9, 3.563126706538641*^9}, {3.56341182302629*^9, 
   3.56341182302629*^9}, 3.5634118899248075`*^9, {3.5634119391896935`*^9, 
   3.563411986176976*^9}, {3.59678067645994*^9, 3.5967807461700373`*^9}, {
   3.5968555379140897`*^9, 3.5968555391340914`*^9}, {3.5968568949759893`*^9, 
   3.5968569188460226`*^9}, 3.596856971256096*^9, 3.596857006996146*^9, {
   3.5968599846049123`*^9, 3.5968599848449125`*^9}, {3.6020086750550127`*^9, 
   3.602008675615014*^9}, {3.6020087698651457`*^9, 3.6020087708951473`*^9}, {
   3.6020091445556707`*^9, 3.6020091696657057`*^9}, {3.602010027116906*^9, 
   3.602010083796985*^9}, {3.6020101184270334`*^9, 3.6020101193170347`*^9}, {
   3.602010229227189*^9, 3.6020102360771985`*^9}, {3.6020241532032943`*^9, 
   3.6020241775133295`*^9}, 3.6020242319634075`*^9, {3.6020266405688653`*^9, 
   3.602026646918874*^9}, {3.6020267933290787`*^9, 3.6020267971190844`*^9}, 
   3.602026927479267*^9, {3.6020287345017967`*^9, 3.6020287365617995`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{"u", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", "v"}], ")"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", "v"}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
       "\[And]", " ", 
       RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{"m", "+", "n"}], "\[NotElement]", 
        "\[DoubleStruckCapitalZ]"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9, 
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9, 
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9}, 
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9, 
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9}, 
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9, 
   3.5403192458899937`*^9}, {3.5403196532852955`*^9, 
   3.5403196542853527`*^9}, {3.5404234472634363`*^9, 
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9, 
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, 
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9, 
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9, 
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9, 
   3.5450601580464125`*^9}, {3.5450602208677225`*^9, 3.545060232349343*^9}, {
   3.5450606692749104`*^9, 3.5450606695869107`*^9}, {3.545064157588436*^9, 
   3.545064173278458*^9}, {3.545064245438559*^9, 3.545064245438559*^9}, {
   3.5450644846488943`*^9, 3.5450644846488943`*^9}, {3.5450645316189594`*^9, 
   3.545064533688963*^9}, 3.545064591839044*^9, 3.5454973483879595`*^9, 
   3.545506097840209*^9, 3.5455157193990145`*^9, 3.5462951690403004`*^9, {
   3.5462964020120263`*^9, 3.5462964133720427`*^9}, 3.5462966455623674`*^9, {
   3.5472311188349724`*^9, 3.54723116715504*^9}, {3.5472318015599303`*^9, 
   3.5472318067199373`*^9}, {3.5472325709010077`*^9, 
   3.5472325766810155`*^9}, {3.5472652760126*^9, 3.547265277682602*^9}, {
   3.547265325642669*^9, 3.547265351422705*^9}, {3.5473157817284665`*^9, 
   3.547315808787014*^9}, {3.547316456343052*^9, 3.5473164563440523`*^9}, 
   3.547316510131129*^9, {3.5473169647091293`*^9, 3.547316965009146*^9}, {
   3.5473170148439965`*^9, 3.5473170148439965`*^9}, 3.5634065737043867`*^9, {
   3.563411807083062*^9, 3.563411807098662*^9}, 3.5634118552091465`*^9, 
   3.5967806211098623`*^9, 3.596855535424086*^9, {3.5968566931157064`*^9, 
   3.596856724855751*^9}, {3.596860122925106*^9, 3.596860122925106*^9}, {
   3.602008671925009*^9, 3.602008672165009*^9}, 3.6020087111350636`*^9, 
   3.6020098018365903`*^9, {3.602010107177018*^9, 3.602010107177018*^9}, {
   3.6020269665293217`*^9, 3.6020269795093393`*^9}, {3.602028727421787*^9, 
   3.602028727421787*^9}, 3.646955916949519*^9, 3.6469571278292675`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9, 
   3.497662798718403*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"F", "[", "x", "]"}]}], ")"}], "n"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"F", "[", "x", "]"}]}], ")"}], "n"]]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, 3.497578119962559*^9, {3.5083546016044073`*^9, 
   3.5083546016044073`*^9}, {3.5118050348148956`*^9, 
   3.5118050348148956`*^9}, {3.5462953719105844`*^9, 
   3.5462953727405853`*^9}, {3.546295419610651*^9, 3.546295448940692*^9}, {
   3.546296444592086*^9, 3.5462964544221*^9}, {3.547231239455141*^9, 
   3.5472312497351556`*^9}, {3.563417592214405*^9, 3.563417592214405*^9}, {
   3.5967805962978263`*^9, 3.5967805962978263`*^9}, {3.596855536074087*^9, 
   3.596855536074087*^9}, {3.596856858925939*^9, 3.596856858925939*^9}, {
   3.6020086727950096`*^9, 3.60200867302501*^9}, {3.6020099269167657`*^9, 
   3.6020099269167657`*^9}, {3.6020241279032583`*^9, 3.6020241279032583`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
   " ", 
   RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
   " ", 
   RowBox[{
    RowBox[{"m", "+", "n"}], "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9, 
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9, 
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9, 
   3.5004320093321514`*^9}, {3.5013559257793446`*^9, 
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9, 
   3.5026762588802133`*^9}, {3.5026784726933126`*^9, 
   3.5026784726933126`*^9}, {3.5027658552205725`*^9, 
   3.5027658552205725`*^9}, {3.5027672224669743`*^9, 
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.503812941222491*^9, {
   3.5040286741277885`*^9, 3.50402867512619*^9}, 3.504031838526546*^9, 
   3.504311148611575*^9, {3.504764105847949*^9, 3.5047641154079623`*^9}, {
   3.5047641477280073`*^9, 3.504764147948008*^9}, 3.505005742172364*^9, {
   3.5080368114491596`*^9, 3.5080368579840417`*^9}, 3.5080374691155157`*^9, {
   3.5105233710346155`*^9, 3.510523371184616*^9}, {3.5105252878872995`*^9, 
   3.510525294107308*^9}, {3.51052584282408*^9, 3.51052584282408*^9}, {
   3.510788027396412*^9, 3.510788030076415*^9}, {3.5107882657767453`*^9, 
   3.5107883208568225`*^9}, {3.510789664430705*^9, 3.5107896743807187`*^9}, 
   3.510790463911824*^9, {3.510790613852034*^9, 3.5107906179920397`*^9}, {
   3.510813336637003*^9, 3.510813336637003*^9}, {3.5108459293657985`*^9, 
   3.5108459592866507`*^9}, {3.5139582932649612`*^9, 
   3.5139582932649612`*^9}, {3.5144735590171833`*^9, 3.514473561965588*^9}, {
   3.5144737101346483`*^9, 3.514473715157857*^9}, {3.514473763190342*^9, 
   3.514473764578744*^9}, {3.514496474085927*^9, 3.514496484855942*^9}, {
   3.5148560276013145`*^9, 3.514856028942917*^9}, {3.515181654360551*^9, 
   3.5151816552341523`*^9}, {3.5454155814555597`*^9, 3.545415582563162*^9}, {
   3.545430066735132*^9, 3.545430067215133*^9}, {3.546125031993594*^9, 
   3.546125032823595*^9}, {3.547265353742708*^9, 3.547265353742708*^9}, {
   3.5473158127892427`*^9, 3.5473158127892427`*^9}, {3.5473164670636654`*^9, 
   3.5473164670636654`*^9}, {3.5473171298465743`*^9, 
   3.5473171298465743`*^9}, {3.5968568820259714`*^9, 
   3.5968568820259714`*^9}, {3.596860124345108*^9, 3.596860124345108*^9}, {
   3.6020101159170303`*^9, 3.6020101159170303`*^9}, {3.602026984559347*^9, 
   3.602026984559347*^9}, {3.602028728201788*^9, 3.602028728201788*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{"u", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", " ", "v"}], ")"}], "m"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", "v"}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["b", 
        RowBox[{"IntPart", "[", "n", "]"}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"b", " ", "v"}], ")"}], 
        RowBox[{"FracPart", "[", "n", "]"}]]}], 
      RowBox[{
       SuperscriptBox["a", 
        RowBox[{"IntPart", "[", "n", "]"}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", " ", "v"}], ")"}], 
        RowBox[{"FracPart", "[", "n", "]"}]]}]]}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{"u", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", "v"}], ")"}], 
      RowBox[{"m", "+", "n"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.4975780293224325`*^9, {3.4975823372004642`*^9, 
   3.4975823431504726`*^9}, {3.4979216297682095`*^9, 
   3.4979216297682095`*^9}, {3.505344687863849*^9, 3.505344687863849*^9}, {
   3.5074187348633986`*^9, 3.5074187409134073`*^9}, {3.5098471722784896`*^9, 
   3.509847174858493*^9}, 3.51180499522484*^9, {3.5151676155136676`*^9, 
   3.5151676298736877`*^9}, 3.541101803256009*^9, {3.541115802450629*^9, 
   3.541115829936912*^9}, {3.5411170533806067`*^9, 3.541117065630624*^9}, {
   3.546296428072063*^9, 3.546296438832078*^9}, {3.546296483582141*^9, 
   3.5462964919121523`*^9}, {3.547231194825079*^9, 3.547231229775128*^9}, {
   3.547232589761034*^9, 3.5472325935810394`*^9}, {3.563411807114262*^9, 
   3.563411807145462*^9}, {3.563411855770747*^9, 3.563411856847149*^9}, {
   3.5967805553477693`*^9, 3.5967805891378164`*^9}, {3.596855536844088*^9, 
   3.5968555374140887`*^9}, {3.5968567265057535`*^9, 
   3.5968567426657763`*^9}, {3.5968567928758464`*^9, 3.596856829095897*^9}, {
   3.6020086732550106`*^9, 3.6020086747050123`*^9}, {3.6020098091466007`*^9, 
   3.6020098268166256`*^9}, {3.602009861856674*^9, 3.602009876476695*^9}, {
   3.6020240827556934`*^9, 3.6020240939157095`*^9}, {3.6469567984357977`*^9, 
   3.646956846121866*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"u_.", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", "v_"}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", "v_"}], ")"}], "^", "n_"}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"b", "^", 
     RowBox[{"IntPart", "[", "n", "]"}]}], "*", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b", "*", "v"}], ")"}], "^", 
      RowBox[{"FracPart", "[", "n", "]"}]}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a", "^", 
        RowBox[{"IntPart", "[", "n", "]"}]}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "*", "v"}], ")"}], "^", 
        RowBox[{"FracPart", "[", "n", "]"}]}]}], ")"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{"u", "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "*", "v"}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"m", "+", "n"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "m", ",", "n"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "m", "]"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "n", "]"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", 
      RowBox[{"m", "+", "n"}], "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.497577987032373*^9, {
   3.4979216297682095`*^9, 3.497921629783809*^9}, 3.4979230300422688`*^9, {
   3.505344687883849*^9, 3.505344687883849*^9}, 3.5074187847234683`*^9, {
   3.509847176848496*^9, 3.5098471799084997`*^9}, {3.511804078821556*^9, 
   3.511804083061562*^9}, {3.5118050548249235`*^9, 3.511805058434929*^9}, 
   3.511805389089394*^9, {3.514174480826256*^9, 3.5141744852722635`*^9}, {
   3.5141751035821505`*^9, 3.514175106764556*^9}, 3.5141774512366753`*^9, {
   3.5410976974308376`*^9, 3.5410977100668592`*^9}, {3.5411018263752494`*^9, 
   3.5411018402280736`*^9}, {3.541116030157608*^9, 3.541116035122864*^9}, {
   3.541117072180633*^9, 3.5411170753206377`*^9}, {3.5450643579287167`*^9, 
   3.5450643666987286`*^9}, {3.5450644187188015`*^9, 
   3.5450644238188086`*^9}, {3.5462953176805086`*^9, 3.546295320140512*^9}, {
   3.5462965514222355`*^9, 3.546296585122283*^9}, 3.5462967357824936`*^9, {
   3.547231380239341*^9, 3.5472314258094044`*^9}, 3.5472318122599454`*^9, {
   3.5472326044910545`*^9, 3.547232608911061*^9}, {3.5472327472812543`*^9, 
   3.5472327734712915`*^9}, {3.5472653618527203`*^9, 
   3.5472653696227307`*^9}, {3.547315815603404*^9, 3.547315816334446*^9}, {
   3.5473164515197763`*^9, 3.547316451722788*^9}, 3.5473171399381514`*^9, {
   3.5631229227987633`*^9, 3.5631229260747695`*^9}, 3.5631230333873577`*^9, {
   3.563126703543435*^9, 3.563126706538641*^9}, {3.56341182302629*^9, 
   3.56341182302629*^9}, 3.5634118899248075`*^9, {3.5634119391896935`*^9, 
   3.563411986176976*^9}, {3.59678067645994*^9, 3.5967807461700373`*^9}, {
   3.5968555379140897`*^9, 3.5968555391340914`*^9}, {3.5968568949759893`*^9, 
   3.5968569188460226`*^9}, 3.596856971256096*^9, 3.596857006996146*^9, {
   3.5968599846049123`*^9, 3.5968599848449125`*^9}, {3.6020086750550127`*^9, 
   3.602008675615014*^9}, {3.6020087698651457`*^9, 3.6020087708951473`*^9}, {
   3.6020091445556707`*^9, 3.6020091696657057`*^9}, {3.602010027116906*^9, 
   3.602010083796985*^9}, {3.6020101184270334`*^9, 3.6020101193170347`*^9}, {
   3.602010229227189*^9, 3.6020102360771985`*^9}, {3.6020241532032943`*^9, 
   3.6020241775133295`*^9}, 3.6020242319634075`*^9, {3.602026988509352*^9, 
   3.6020269935493593`*^9}, {3.6020287379918013`*^9, 3.6020287400818043`*^9}, 
   3.646956883183919*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["8.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{"u", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "v"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "v"}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{
       RowBox[{"b", " ", "c"}], "-", 
       RowBox[{"a", " ", "d"}]}], "\[Equal]", "0"}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, 3.495391472651263*^9, 
   3.495401054609831*^9, 3.5192471165556655`*^9, {3.5193215061969385`*^9, 
   3.519321516118556*^9}, {3.5194112375076466`*^9, 3.519411237897647*^9}, {
   3.519793880617955*^9, 3.5197939056871996`*^9}, {3.5214737994226494`*^9, 
   3.52147379976265*^9}, {3.5214740853930497`*^9, 3.5214740868330517`*^9}, {
   3.5233165034643316`*^9, 3.5233165034643316`*^9}, {3.523316541394385*^9, 
   3.523316541394385*^9}, {3.5233184186335115`*^9, 3.5233184189455123`*^9}, {
   3.523933439317552*^9, 3.523933458458786*^9}, 3.5339278987366405`*^9, {
   3.535383047493553*^9, 3.5353830519335594`*^9}, 3.535385513927006*^9, {
   3.539393177435236*^9, 3.539393194520213*^9}, {3.571333200402483*^9, 
   3.571333202652486*^9}, {3.572709950828197*^9, 3.572709951108197*^9}, {
   3.5732256359047804`*^9, 3.573225636154381*^9}, {3.5978904644981866`*^9, 
   3.597890465418188*^9}, {3.60088621754498*^9, 3.600886246265021*^9}, {
   3.602011623459141*^9, 3.602011623749141*^9}, {3.613330388150442*^9, 
   3.613330388390442*^9}, {3.6532585307369585`*^9, 3.65325853175696*^9}, {
   3.6571399368743815`*^9, 3.6571399396005373`*^9}, 3.6703821073416634`*^9, {
   3.701052688832907*^9, 3.7010526893309355`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{"u", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "v"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "v"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"b", " ", "c"}], "-", 
         RowBox[{"a", " ", "d"}]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[Or]",
          " ", 
         RowBox[{
          FractionBox["b", "d"], ">", "0"}]}], ")"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.521070903512648*^9, 
   3.5210709252746863`*^9}, 3.521070971825168*^9, {3.5210731408529778`*^9, 
   3.5210731428653812`*^9}, {3.5211320572901077`*^9, 
   3.5211320822301426`*^9}, {3.521132813901167*^9, 3.5211328157011695`*^9}, {
   3.5211385933192577`*^9, 3.521138607669278*^9}, {3.521138975119793*^9, 
   3.521138978249797*^9}, {3.5211474082785463`*^9, 3.5211474127401543`*^9}, {
   3.5211476233093243`*^9, 3.5211476559445815`*^9}, {3.5211476939150476`*^9, 
   3.521147697908655*^9}, {3.521470255937501*^9, 3.521470256187101*^9}, {
   3.521657826023793*^9, 3.5216578261937933`*^9}, {3.5223444306610913`*^9, 
   3.522344447431115*^9}, {3.5223662876558514`*^9, 3.5223663277947226`*^9}, {
   3.522366448273734*^9, 3.522366452953742*^9}, {3.523320823379374*^9, 
   3.523320823379374*^9}, {3.523320893385089*^9, 3.5233208981434965`*^9}, {
   3.5238129496835737`*^9, 3.5238129509935756`*^9}, {3.5238137096246376`*^9, 
   3.5238137096246376`*^9}, 3.523813820704793*^9, {3.529214713445571*^9, 
   3.5292147159955745`*^9}, {3.5292147664456453`*^9, 
   3.5292147664456453`*^9}, {3.529244169541077*^9, 3.5292441758354373`*^9}, {
   3.529284867522999*^9, 3.5292848677629995`*^9}, {3.529447490433716*^9, 
   3.5294474992052174`*^9}, {3.529447547681525*^9, 3.529447551627751*^9}, {
   3.529624440491946*^9, 3.5296244407109585`*^9}, {3.530039118162446*^9, 
   3.5300391207824497`*^9}, {3.530047327328045*^9, 3.530047332588052*^9}, {
   3.5300475486383543`*^9, 3.5300475670883803`*^9}, {3.530047738988621*^9, 
   3.530047746148631*^9}, 3.53005101469053*^9, {3.532014841792571*^9, 
   3.5320148867826347`*^9}, {3.533927349155871*^9, 3.533927357055882*^9}, {
   3.5339274010959435`*^9, 3.5339274037859473`*^9}, 3.5339279117466583`*^9, {
   3.533927963696731*^9, 3.533927963696731*^9}, {3.5350838026271358`*^9, 
   3.5350838026271358`*^9}, {3.5353830577535677`*^9, 
   3.5353830757335925`*^9}, {3.535384446895512*^9, 3.535384446895512*^9}, 
   3.535385518367012*^9, {3.539393159695221*^9, 3.5393931669636374`*^9}, 
   3.5393935248155146`*^9, {3.540690664741729*^9, 3.540690665057747*^9}, {
   3.540690718106087*^9, 3.5406907183235903`*^9}, {3.6008862562250347`*^9, 
   3.600886260625041*^9}, {3.657139943049735*^9, 3.657139944523819*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic simplification", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9, {
   3.498790415276228*^9, 3.498790427132249*^9}}],

Cell[TextData[{
 "Basis: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"b", " ", "c"}], "-", 
     RowBox[{"a", " ", "d"}]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[Or]", 
     " ", 
     RowBox[{
      FractionBox["b", "d"], ">", "0"}]}], ")"}]}]]],
 ", then ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "z"}]}], ")"}], "m"], "\[Equal]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      FractionBox["b", "d"], ")"}], "m"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "z"}]}], ")"}], "m"]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9, {
   3.498790415276228*^9, 3.498790427132249*^9}, {3.498790625383397*^9, 
   3.4987906379882193`*^9}, {3.49879077484726*^9, 3.498790863190215*^9}, {
   3.498790896340273*^9, 3.4987909105986986`*^9}, {3.498790950597169*^9, 
   3.498790974777211*^9}, {3.4987918281347103`*^9, 3.4987918299755135`*^9}, 
   3.498791908272051*^9, {3.533927483686059*^9, 3.5339274888460665`*^9}, {
   3.533927974586746*^9, 3.533928016366805*^9}, {3.5350836809369655`*^9, 
   3.5350836809369655`*^9}, {3.535083752607066*^9, 3.535083785197111*^9}, {
   3.5353830912736144`*^9, 3.5353830912736144`*^9}, {3.53538313131367*^9, 
   3.5353831563137054`*^9}, {3.535383228463806*^9, 3.535383228463806*^9}, {
   3.5353832798938785`*^9, 3.5353832798938785`*^9}, {3.535383471164146*^9, 
   3.5353834957441807`*^9}, {3.535383528764227*^9, 3.535383535534236*^9}, {
   3.5353836326143723`*^9, 3.5353836336343737`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"b", " ", "c"}], "-", 
     RowBox[{"a", " ", "d"}]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[Or]", 
     " ", 
     RowBox[{
      FractionBox["b", "d"], ">", "0"}]}], ")"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.495391733731629*^9, 3.495391739521637*^9}, {3.4957669003183846`*^9, 
   3.495766906158393*^9}, {3.4958177882919493`*^9, 3.495817793751957*^9}, {
   3.498790486521553*^9, 3.498790535090439*^9}, {3.4987918303811145`*^9, 
   3.4987918303811145`*^9}, {3.498791909878854*^9, 3.498791909878854*^9}, {
   3.533927392585932*^9, 3.533927394005934*^9}, {3.533928115046943*^9, 
   3.533928115046943*^9}, {3.535083824047166*^9, 3.535083824047166*^9}, {
   3.535384163775116*^9, 3.535384163775116*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{"u", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "v"}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "v"}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox["b", "d"], ")"}], "m"]}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{"u", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "v"}]}], ")"}], 
      RowBox[{"m", "+", "n"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, 3.495391718911608*^9, 
   3.495391753851657*^9, 3.4957667772682123`*^9, 3.495766807868255*^9, 
   3.4958178099519796`*^9, {3.4958178912220936`*^9, 3.49581790991212*^9}, 
   3.4986070768034644`*^9, {3.4987905501288652`*^9, 3.498790570533701*^9}, {
   3.4987909985360527`*^9, 3.4987910184104877`*^9}, {3.4987918310675154`*^9, 
   3.498791833064319*^9}, {3.5339281036869273`*^9, 3.5339281324569674`*^9}, 
   3.535083838477186*^9, {3.5353837379045196`*^9, 3.535383783324583*^9}, {
   3.5353838142146263`*^9, 3.5353838176046314`*^9}, {3.5353855384170403`*^9, 
   3.535385540257043*^9}, {3.539393222563817*^9, 3.539393253309576*^9}, 
   3.5978900802276487`*^9, {3.6008863091651087`*^9, 3.6008863167751193`*^9}, 
   3.600886462025323*^9, {3.6571399650719943`*^9, 3.657139968007162*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"u_.", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", "v_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_", "+", 
        RowBox[{"d_.", "*", "v_"}]}], ")"}], "^", "n_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"b", "/", "d"}], ")"}], "^", "m"}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{"u", "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "v"}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"m", "+", "n"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "*", "c"}], "-", 
       RowBox[{"a", "*", "d"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "m", "]"}], " ", "&&", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Not", "[", 
       RowBox[{"IntegerQ", "[", "n", "]"}], "]"}], " ", "||", " ", 
      RowBox[{"SimplerQ", "[", 
       RowBox[{
        RowBox[{"c", "+", 
         RowBox[{"d", "*", "x"}]}], ",", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", "x"}]}]}], "]"}]}], ")"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.495391490771289*^9, 3.4957666893580894`*^9, {3.4957669395384398`*^9, 
   3.49576696833848*^9}, 3.4958177798619375`*^9, {3.4986070917482905`*^9, 
   3.498607096490699*^9}, {3.4987910745081863`*^9, 3.4987911015274334`*^9}, {
   3.4987911322594876`*^9, 3.498791177343567*^9}, 3.4987912538929014`*^9, {
   3.498791834203121*^9, 3.498791836231125*^9}, 3.498791957396538*^9, {
   3.5291773889741344`*^9, 3.5291773935605426`*^9}, {3.533927437135994*^9, 
   3.5339274400359983`*^9}, {3.5339281660270147`*^9, 
   3.5339282284371023`*^9}, {3.5339282979771996`*^9, 
   3.5339283015872045`*^9}, {3.5350838438171935`*^9, 3.535083871017232*^9}, {
   3.535383866264699*^9, 3.535383933994794*^9}, {3.5353840198649144`*^9, 
   3.535384044534949*^9}, {3.5353840774149947`*^9, 3.535384128115066*^9}, {
   3.5353855694570837`*^9, 3.5353856213971567`*^9}, {3.5353856694072237`*^9, 
   3.535385683917244*^9}, {3.5393932320473595`*^9, 3.5393932440840483`*^9}, 
   3.5393932756308527`*^9, {3.5393933188459363`*^9, 3.5393933313436513`*^9}, {
   3.540676067044408*^9, 3.5406760702644124`*^9}, {3.5422487703677206`*^9, 
   3.542248805405382*^9}, {3.5978727177595606`*^9, 3.5978727198045635`*^9}, {
   3.600886340025152*^9, 3.6008864194252634`*^9}, {3.6019118095305405`*^9, 
   3.601911811560544*^9}, {3.6019435111333113`*^9, 3.6019435142377167`*^9}, {
   3.6019442097649384`*^9, 3.601944211387341*^9}, {3.6338881181637163`*^9, 
   3.633888170613716*^9}, {3.633888211295043*^9, 3.633888215668293*^9}, 
   3.7061417421984615`*^9, 3.7154740946032495`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"u_.", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", "v_"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_", "+", 
        RowBox[{"d_.", "*", "v_"}]}], ")"}], "^", "n_"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"b", "/", "d"}], ")"}], "^", "m"}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{"u", "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "v"}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"m", "+", "n"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "*", "c"}], "-", 
       RowBox[{"a", "*", "d"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{
      RowBox[{"b", "/", "d"}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{
      RowBox[{"IntegerQ", "[", "m", "]"}], " ", "||", " ", 
      RowBox[{"IntegerQ", "[", "n", "]"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.495391490771289*^9, 3.4957666893580894`*^9, {3.4957669395384398`*^9, 
   3.49576696833848*^9}, 3.4958177798619375`*^9, {3.4986070917482905`*^9, 
   3.498607096490699*^9}, {3.4987910745081863`*^9, 3.4987911015274334`*^9}, {
   3.4987911322594876`*^9, 3.498791177343567*^9}, 3.4987912538929014`*^9, {
   3.498791834203121*^9, 3.498791836231125*^9}, 3.498791957396538*^9, {
   3.5291773889741344`*^9, 3.5291773935605426`*^9}, {3.533927437135994*^9, 
   3.5339274400359983`*^9}, {3.5339281660270147`*^9, 
   3.5339282284371023`*^9}, {3.5339282979771996`*^9, 
   3.5339283015872045`*^9}, {3.5350838438171935`*^9, 3.535083871017232*^9}, {
   3.535383866264699*^9, 3.535383933994794*^9}, {3.5353840198649144`*^9, 
   3.535384044534949*^9}, {3.5353840774149947`*^9, 3.535384128115066*^9}, {
   3.5353855694570837`*^9, 3.5353856213971567`*^9}, {3.5353856694072237`*^9, 
   3.535385683917244*^9}, {3.5393932320473595`*^9, 3.5393932440840483`*^9}, 
   3.5393932756308527`*^9, {3.5393933188459363`*^9, 3.5393933313436513`*^9}, {
   3.540676067044408*^9, 3.5406760702644124`*^9}, {3.5422487703677206`*^9, 
   3.542248805405382*^9}, {3.5978727177595606`*^9, 3.5978727198045635`*^9}, {
   3.600886340025152*^9, 3.6008864194252634`*^9}, {3.6019118095305405`*^9, 
   3.601911811560544*^9}, {3.6019435111333113`*^9, 3.6019435142377167`*^9}, {
   3.6019442097649384`*^9, 3.601944211387341*^9}, {3.6338881181637163`*^9, 
   3.6338881240490527`*^9}, {3.6338882688743362`*^9, 3.63388833206295*^9}, {
   3.6338883640797815`*^9, 3.633888366580925*^9}, {3.633888488025871*^9, 
   3.6338884924571247`*^9}, 3.7061417422084613`*^9, 3.715474094621251*^9, {
   3.7154741247669744`*^9, 3.715474128515189*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{"u", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "v"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "v"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"b", " ", "c"}], "-", 
         RowBox[{"a", " ", "d"}]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
       RowBox[{"\[Not]", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", 
          "\[Or]", " ", 
          RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", 
          "\[Or]", " ", 
          RowBox[{
           FractionBox["b", "d"], ">", "0"}]}], ")"}]}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.519414342899901*^9, 3.5194144390272694`*^9}, {
   3.5197939472612724`*^9, 3.5197939475576725`*^9}, {3.519794027258213*^9, 
   3.5197940275234137`*^9}, 3.5197951504913855`*^9, {3.520010298749789*^9, 
   3.52001029907979*^9}, {3.523218684966897*^9, 3.5232186851968975`*^9}, {
   3.5232187292469587`*^9, 3.5232187352869673`*^9}, {3.5232190227673697`*^9, 
   3.523219075237443*^9}, {3.523219234477666*^9, 3.523219259137701*^9}, {
   3.5233166477245336`*^9, 3.5233166477245336`*^9}, {3.5233185446841087`*^9, 
   3.5233185446841087`*^9}, {3.5233185763349605`*^9, 
   3.5233185763349605`*^9}, {3.523922068266062*^9, 3.5239220901373005`*^9}, {
   3.5239302295283146`*^9, 3.5239302295283146`*^9}, {3.523933673489564*^9, 
   3.523933673489564*^9}, {3.523934116639542*^9, 3.5239341286515627`*^9}, {
   3.5239343082702785`*^9, 3.523934311405884*^9}, 3.533928370877301*^9, {
   3.535384214675187*^9, 3.535384292815296*^9}, 3.535385776887374*^9, {
   3.535385857657487*^9, 3.5353858598674903`*^9}, {3.5353859353675957`*^9, 
   3.5353859367475977`*^9}, 3.5393933938258452`*^9, 3.5393935260635853`*^9, {
   3.5406906671958694`*^9, 3.5406906674598846`*^9}, {3.540690719771113*^9, 
   3.540690719963616*^9}, {3.571964723320966*^9, 3.571964723320966*^9}, {
   3.5732260177922506`*^9, 3.573226020303855*^9}, {3.6008865556354537`*^9, 
   3.60088658170549*^9}, {3.6571399464149275`*^9, 3.6571399486800566`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellChangeTimes->{
  3.496441803031353*^9, 3.4965396318089237`*^9, {3.4966002562016735`*^9, 
   3.4966002624716825`*^9}, 3.496600707442305*^9, 3.4966008475725017`*^9, {
   3.4966070255131593`*^9, 3.496607032413169*^9}, 3.518279406700592*^9, {
   3.51840552316576*^9, 3.5184055392257824`*^9}, 3.5184748983401833`*^9, 
   3.5239218927501535`*^9, 3.5239223317317247`*^9, {3.523933697950406*^9, 
   3.5239337011484118`*^9}, {3.523934293824653*^9, 3.523934299409463*^9}}],

Cell[TextData[{
 "Basis: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"b", " ", "c"}], "-", 
    RowBox[{"a", " ", "d"}]}], "\[Equal]", "0"}]]],
 ", then ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"F", "[", "x", "]"}]}]}], ")"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", 
         RowBox[{"F", "[", "x", "]"}]}]}], ")"}], "m"]]}], "\[Equal]", "0"}]],
  CellDingbat->None,
  CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
    3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
    3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
    3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
    3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
    3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
    3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
    3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
    3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
    3.4940972077187414`*^9, 3.4940972347887793`*^9}, 3.495391718911608*^9, 
    3.495391753851657*^9, {3.495733875467045*^9, 3.4957338981670766`*^9}, 
    3.4957347552282763`*^9, 3.5239232039608574`*^9, {3.523923243678527*^9, 
    3.523923288731406*^9}},
  TextAlignment->Center,
  FontSize->12,
  FontWeight->"Bold"]
}], "Subsubsection",
 CellChangeTimes->{
  3.496441803031353*^9, 3.4965396318089237`*^9, {3.4966002562016735`*^9, 
   3.4966002624716825`*^9}, 3.496600707442305*^9, 3.4966008475725017`*^9, {
   3.4966070255131593`*^9, 3.496607032413169*^9}, 3.518279406700592*^9, {
   3.51840552316576*^9, 3.5184055392257824`*^9}, 3.5184748983401833`*^9, 
   3.5239218927501535`*^9, 3.5239223317317247`*^9, {3.523933697950406*^9, 
   3.5239337702877336`*^9}, {3.523933813250209*^9, 3.5239338922955475`*^9}, {
   3.523934427532488*^9, 3.5239344565017385`*^9}, {3.5239346172756214`*^9, 
   3.5239346514552813`*^9}, {3.523934686742543*^9, 3.523934687616145*^9}, {
   3.5239348763920765`*^9, 3.5239348885132976`*^9}, {3.53392839150733*^9, 
   3.533928393457333*^9}, {3.535384407415457*^9, 3.535384407415457*^9}, {
   3.59901318348112*^9, 3.59901318348112*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"b", " ", "c"}], "-", 
     RowBox[{"a", " ", "d"}]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"\[Not]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[Or]", 
      " ", 
      RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[Or]", 
      " ", 
      RowBox[{
       FractionBox["b", "d"], ">", "0"}]}], ")"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.495391733731629*^9, 3.495391739521637*^9}, {3.4957339078770905`*^9, 
   3.495733966267172*^9}, {3.495734148157427*^9, 3.4957341584974413`*^9}, {
   3.4957346698781567`*^9, 3.495734670108157*^9}, {3.4957347778783083`*^9, 
   3.4957348688784356`*^9}, {3.5182850739057484`*^9, 
   3.5182850817837625`*^9}, {3.5193219410789022`*^9, 
   3.5193219437309074`*^9}, {3.5193301726195183`*^9, 
   3.5193301738595195`*^9}, {3.5199710233740273`*^9, 3.519971026084031*^9}, {
   3.519971058314076*^9, 3.519971083934112*^9}, {3.523219270157716*^9, 
   3.523219270157716*^9}, {3.523924231484662*^9, 3.523924232592264*^9}, {
   3.523930223132303*^9, 3.5239302243647056`*^9}, {3.523933687825989*^9, 
   3.523933687825989*^9}, {3.5239350440611706`*^9, 3.5239350440611706`*^9}, {
   3.535384460415531*^9, 3.535384460415531*^9}, {3.5353858686175027`*^9, 
   3.5353858686175027`*^9}, {3.535385940487603*^9, 3.535385941607605*^9}, {
   3.5719647374127717`*^9, 3.5719647374127717`*^9}, {3.57322605719792*^9, 
   3.57322605719792*^9}, {3.6008865935455065`*^9, 3.6008865935455065`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{"u", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "v"}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "v"}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "v"}]}], ")"}], "m"], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "v"}]}], ")"}], "m"]]}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{"u", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "v"}]}], ")"}], 
      RowBox[{"m", "+", "n"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, 3.495391718911608*^9, 
   3.495391753851657*^9, {3.495733875467045*^9, 3.4957338981670766`*^9}, 
   3.4957347552282763`*^9, 3.5239232039608574`*^9, {3.523923243678527*^9, 
   3.523923288731406*^9}, {3.52393403026219*^9, 3.52393404737542*^9}, {
   3.5239348293579936`*^9, 3.5239348548484383`*^9}, {3.533928422357373*^9, 
   3.533928443257403*^9}, {3.5353843379153595`*^9, 3.5353843865154276`*^9}, {
   3.535385778817377*^9, 3.5353857809273796`*^9}, {3.5393934029853687`*^9, 
   3.539393411497856*^9}, {3.600886561995463*^9, 3.6008865693854733`*^9}, {
   3.600886712115673*^9, 3.600886713595675*^9}, {3.6571399517662334`*^9, 
   3.657139955924471*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"u_.", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", "v_"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_", "+", 
        RowBox[{"d_.", "*", "v_"}]}], ")"}], "^", "n_"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "v"}]}], ")"}], "^", "m"}], "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "v"}]}], ")"}], "^", "m"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{"u", "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "v"}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"m", "+", "n"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "*", "c"}], "-", 
       RowBox[{"a", "*", "d"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{
      RowBox[{"IntegerQ", "[", "m", "]"}], " ", "||", " ", 
      RowBox[{"IntegerQ", "[", "n", "]"}], " ", "||", " ", 
      RowBox[{"GtQ", "[", 
       RowBox[{
        RowBox[{"b", "/", "d"}], ",", "0"}], "]"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.495391490771289*^9, 3.4957338140769587`*^9, {3.495734137617412*^9, 
   3.4957341399074154`*^9}, {3.495734511017935*^9, 3.495734528517959*^9}, 
   3.4957347273482375`*^9, 3.517189127515149*^9, {3.518285098116991*^9, 
   3.51828511449942*^9}, 3.519516796608901*^9, {3.5195358796700096`*^9, 
   3.519535890278028*^9}, {3.5198298745942106`*^9, 3.5198299103338737`*^9}, {
   3.5198299857912064`*^9, 3.5198299943556213`*^9}, {3.5198301494510937`*^9, 
   3.519830167843526*^9}, {3.519831538303933*^9, 3.519831563419977*^9}, {
   3.519970992613984*^9, 3.51997099703399*^9}, {3.523219202147621*^9, 
   3.5232192139876375`*^9}, {3.5239239772854156`*^9, 3.523924019327489*^9}, {
   3.5239240659559712`*^9, 3.5239240668295727`*^9}, 3.5239242096790237`*^9, 
   3.5239243837877293`*^9, {3.5239250731373405`*^9, 3.5239250750093436`*^9}, {
   3.5239342565561876`*^9, 3.523934262406198*^9}, {3.5239343356327267`*^9, 
   3.5239343491735506`*^9}, 3.5239349659206333`*^9, 3.5239350231883345`*^9, {
   3.5241080791664352`*^9, 3.52410808200564*^9}, {3.5319431759270053`*^9, 
   3.531943176597806*^9}, {3.533928467727437*^9, 3.533928478507452*^9}, {
   3.535384496225581*^9, 3.5353845518056593`*^9}, {3.5353845868357077`*^9, 
   3.5353846342057743`*^9}, {3.5353858101374207`*^9, 3.535385821597437*^9}, {
   3.5353859765176535`*^9, 3.535385977267655*^9}, {3.5393934433536777`*^9, 
   3.539393472150325*^9}, {3.5394007277745132`*^9, 3.5394007296465163`*^9}, {
   3.5394013348557067`*^9, 3.539401369275755*^9}, {3.5406760733344164`*^9, 
   3.54067607576442*^9}, {3.571880958787671*^9, 3.5718809623976765`*^9}, {
   3.571964618605976*^9, 3.571964622183181*^9}, 3.5719647672044754`*^9, {
   3.57322608028596*^9, 3.5732260907847786`*^9}, {3.5978727451745996`*^9, 
   3.5978727470996027`*^9}, {3.6008866157855377`*^9, 
   3.6008866806256285`*^9}, {3.6019117778429923`*^9, 3.6019117797004952`*^9}, 
   3.7061417422384615`*^9, 3.715474094643252*^9, {3.715474134405526*^9, 
   3.7154741382197447`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["9:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{"u", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "v"}]}], ")"}], "m"], 
    RowBox[{"(", 
     RowBox[{"A", "+", 
      RowBox[{"B", " ", "v"}], "+", 
      RowBox[{"C", " ", 
       SuperscriptBox["v", "2"]}]}], ")"}], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"A", " ", 
         SuperscriptBox["b", "2"]}], "-", 
        RowBox[{"a", " ", "b", " ", "B"}], "+", 
        RowBox[{
         SuperscriptBox["a", "2"], " ", "C"}]}], "\[Equal]", "0"}], " ", 
      "\[And]", " ", 
      RowBox[{"m", "\[LessEqual]", 
       RowBox[{"-", "1"}]}]}]]]], "None"], "            ", 
    RowBox[{"??", "??"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.4965117206885777`*^9, 3.5192471175756674`*^9, {3.5192587973599553`*^9, 
   3.5192588081399703`*^9}, {3.519321495105319*^9, 3.5193214991925263`*^9}, 
   3.5193247857072587`*^9, {3.5194051897010813`*^9, 3.5194051902791147`*^9}, {
   3.5194055551249824`*^9, 3.5194055708408813`*^9}, {3.519405711316916*^9, 
   3.51940572904193*^9}, {3.519410772192028*^9, 3.5194107776364374`*^9}, {
   3.519413782484516*^9, 3.519413782827717*^9}, {3.519767588664174*^9, 
   3.519767611128214*^9}, {3.5197937941314034`*^9, 3.519793794568204*^9}, {
   3.5197947626591043`*^9, 3.519794764749508*^9}, {3.519794865354085*^9, 
   3.519794874355301*^9}, {3.523218063086026*^9, 3.523218070356036*^9}, {
   3.523316514684347*^9, 3.523316514684347*^9}, {3.5233165475343933`*^9, 
   3.5233165475343933`*^9}, {3.5233184331871357`*^9, 
   3.5233184334271364`*^9}, {3.5273599103435545`*^9, 3.527359910608755*^9}, {
   3.5326424241029196`*^9, 3.53264242435292*^9}, {3.5326584126048727`*^9, 
   3.532658412794873*^9}, {3.532726454021428*^9, 3.5327264542814283`*^9}, {
   3.5327554047263184`*^9, 3.532755404993334*^9}, {3.532798666112293*^9, 
   3.532798676322307*^9}, {3.5328778343810363`*^9, 3.5328778343810363`*^9}, 
   3.5330758294771795`*^9, {3.5330827570868783`*^9, 3.533082757336879*^9}, {
   3.534975097668671*^9, 3.534975097888672*^9}, {3.536863459221404*^9, 
   3.536863459439804*^9}, {3.540264711953947*^9, 3.5402647253239655`*^9}, {
   3.540264783504047*^9, 3.540264783504047*^9}, {3.540502117527218*^9, 
   3.540502117997218*^9}, {3.540502551737826*^9, 3.540502551937826*^9}, {
   3.5449015667548094`*^9, 3.5449015920048447`*^9}, {3.544901714065016*^9, 
   3.544901727955035*^9}, 3.544911958524931*^9, {3.5449122781717815`*^9, 
   3.5449122781717815`*^9}, {3.5455187047402697`*^9, 
   3.5455187052402706`*^9}, {3.545518898070541*^9, 3.545518911130559*^9}, {
   3.5455202868524847`*^9, 3.5455202868524847`*^9}, {3.545520317832528*^9, 
   3.545520339272558*^9}, {3.545520578812894*^9, 3.545520601212925*^9}, {
   3.545520817443228*^9, 3.545520820373232*^9}, {3.545578383065389*^9, 
   3.545578398615411*^9}, {3.5461099987254543`*^9, 3.54611000814787*^9}, {
   3.546110085383606*^9, 3.546110115616459*^9}, {3.546113143676578*^9, 
   3.5461131599162064`*^9}, {3.546113861589839*^9, 3.546113902539911*^9}, {
   3.546114166008774*^9, 3.546114166008774*^9}, {3.5461157697071905`*^9, 
   3.546115770081591*^9}, {3.546881285463888*^9, 3.546881338233962*^9}, 
   3.5468817383245225`*^9, {3.546881986034869*^9, 3.546881986034869*^9}, {
   3.5468892568770494`*^9, 3.546889259477053*^9}, {3.5470661850482807`*^9, 
   3.5470661850482807`*^9}, {3.5470663601085253`*^9, 
   3.5470663608385267`*^9}, {3.547079095010357*^9, 3.547079106460373*^9}, {
   3.5484359059573984`*^9, 3.548435906657399*^9}, {3.5484359766974974`*^9, 
   3.5484359766974974`*^9}, {3.579126114287238*^9, 3.579126114437238*^9}, {
   3.579126412427655*^9, 3.5791264126176558`*^9}, 3.5791279968098736`*^9, {
   3.579128028559918*^9, 3.579128047959945*^9}, 3.5970221175977335`*^9, {
   3.6058506957794833`*^9, 3.60585070049949*^9}, 3.606325884031905*^9, {
   3.6063260498021374`*^9, 3.6063260794821787`*^9}, {3.606326109592221*^9, 
   3.6063261106422224`*^9}, {3.6063262314823914`*^9, 3.606326231862392*^9}, {
   3.6063263806026*^9, 3.606326390522614*^9}, {3.6063265551228447`*^9, 
   3.6063265551228447`*^9}, {3.606327616866835*^9, 3.6063276366368628`*^9}, 
   3.6065874284007683`*^9, {3.606588295091982*^9, 3.606588296981984*^9}, {
   3.6078858694321675`*^9, 3.6078858694321675`*^9}, {3.607895031223325*^9, 
   3.6078950314333253`*^9}, {3.6079060448499703`*^9, 
   3.6079060448499703`*^9}, {3.6079875759379125`*^9, 3.607987576187913*^9}, {
   3.6080017854514956`*^9, 3.608001785481496*^9}, 3.6080876119796076`*^9, {
   3.609280933727192*^9, 3.609280953127219*^9}, {3.609281109057437*^9, 
   3.6092811134174433`*^9}, {3.6092815649780755`*^9, 3.609281565328076*^9}, {
   3.6092816712682247`*^9, 3.6092816764682317`*^9}, {3.609282350319175*^9, 
   3.609282350319175*^9}, {3.609283058580167*^9, 3.609283059050167*^9}, {
   3.6092831429302845`*^9, 3.609283143230285*^9}, {3.6133303921404476`*^9, 
   3.613330392330448*^9}, {3.653258535376965*^9, 3.653258535556965*^9}, {
   3.701052692060092*^9, 3.701052692502117*^9}, {3.74191223257292*^9, 
   3.741912234477029*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic simplification", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9, 
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9, 
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9, 
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9, 
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9, 
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9, 
   3.5017231707844906`*^9, 3.5017234546797895`*^9, {3.5017235643791823`*^9, 
   3.501723566750386*^9}, {3.5017237232810616`*^9, 3.5017237250750647`*^9}, {
   3.5027664855216804`*^9, 3.5027664896088877`*^9}}],

Cell[TextData[{
 "Basis:  If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"A", " ", 
     SuperscriptBox["b", "2"]}], "-", 
    RowBox[{"a", " ", "b", " ", "B"}], "+", 
    RowBox[{
     SuperscriptBox["a", "2"], " ", "C"}]}], "\[Equal]", "0"}]]],
 ", then ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"A", "+", 
    RowBox[{"B", " ", "z"}], "+", 
    RowBox[{"C", " ", 
     SuperscriptBox["z", "2"]}]}], "\[Equal]", 
   RowBox[{
    FractionBox["1", 
     SuperscriptBox["b", "2"]], 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "z"}]}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"b", " ", "B"}], "-", 
      RowBox[{"a", " ", "C"}], "+", 
      RowBox[{"b", " ", "C", " ", "z"}]}], ")"}]}]}]], "Input",
  CellChangeTimes->{{3.5027666870896344`*^9, 3.502766694577647*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9, 
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9, 
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9, 
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9, 
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9, 
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9, 
   3.5017231707844906`*^9, 3.5017234546797895`*^9, {3.5017235643791823`*^9, 
   3.501723566750386*^9}, {3.5017237232810616`*^9, 3.5017237250750647`*^9}, {
   3.5027664855216804`*^9, 3.5027664896088877`*^9}, {3.5027665557998037`*^9, 
   3.5027665566110053`*^9}, 3.5027665996046805`*^9, {3.502766706511668*^9, 
   3.5027667557297544`*^9}, 3.502767181048902*^9, {3.502767342353185*^9, 
   3.5027673502359996`*^9}, 3.502767478140624*^9, {3.5468800917622175`*^9, 
   3.54688009376222*^9}, {3.5470791398604193`*^9, 3.547079145160427*^9}, {
   3.5470792120805206`*^9, 3.5470792120805206`*^9}, {3.6063261735823107`*^9, 
   3.6063261785623174`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"A", " ", 
      SuperscriptBox["b", "2"]}], "-", 
     RowBox[{"a", " ", "b", " ", "B"}], "+", 
     RowBox[{
      SuperscriptBox["a", "2"], " ", "C"}]}], "\[Equal]", "0"}], " ", 
   "\[And]", " ", 
   RowBox[{"m", "\[LessEqual]", 
    RowBox[{"-", "1"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9, 
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993638312082148`*^9, 
   3.499363839028226*^9}, {3.499368533262825*^9, 3.499368534762827*^9}, {
   3.500319714354707*^9, 3.500319719674714*^9}, {3.500321207536797*^9, 
   3.5003212188668127`*^9}, {3.501358653573163*^9, 3.5013586559531665`*^9}, {
   3.502678432393256*^9, 3.5026784351732597`*^9}, {3.502766589293062*^9, 
   3.502766589293062*^9}, 3.5027671790052986`*^9, 3.5027674748646183`*^9, {
   3.5038569856949825`*^9, 3.503856992059794*^9}, {3.504031357905302*^9, 
   3.5040313587633038`*^9}, 3.5040317449575815`*^9, {3.504311260541732*^9, 
   3.504311260711732*^9}, {3.504750498076647*^9, 3.50475050021665*^9}, {
   3.5092408217803926`*^9, 3.509240824151596*^9}, {3.510164009908225*^9, 
   3.510164009908225*^9}, {3.5117214107451816`*^9, 3.5117214107451816`*^9}, {
   3.5120768665233393`*^9, 3.5120768665233393`*^9}, {3.5121850888428593`*^9, 
   3.5121850938972683`*^9}, 3.546877116548052*^9, {3.5468800973122253`*^9, 
   3.5468800973122253`*^9}, {3.547066202678305*^9, 3.547066202678305*^9}, {
   3.5470791133403826`*^9, 3.5470791133403826`*^9}, {3.548435986417511*^9, 
   3.548435986417511*^9}, {3.5791280567299576`*^9, 3.5791280567299576`*^9}, {
   3.606326118162233*^9, 3.606326118162233*^9}, {3.6063263998826275`*^9, 
   3.6063263998826275`*^9}, {3.606326557022847*^9, 3.606326557022847*^9}, {
   3.6063276457668753`*^9, 3.6063276457668753`*^9}, {3.6078858788821807`*^9, 
   3.6078858788821807`*^9}, {3.6092812944276967`*^9, 3.609281295387698*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{"u", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", " ", "v"}], ")"}], "m"], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"b", " ", "v"}], "+", 
     RowBox[{"c", " ", 
      SuperscriptBox["v", "2"]}]}], ")"}], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", "a"]}]}], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{"u", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", "v"}], ")"}], 
      RowBox[{"m", "+", "1"}]], 
     RowBox[{"(", 
      RowBox[{"b", "+", 
       RowBox[{"c", " ", "v"}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9, 
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9, 
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9, 
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9, 
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9, 
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.499404301116287*^9, 
   3.49940430323629*^9}, {3.4994048006769867`*^9, 3.4994048025069895`*^9}, {
   3.5003179811489162`*^9, 3.5003179814297166`*^9}, 3.5003181853432746`*^9, {
   3.5003185563630857`*^9, 3.500318557803087*^9}, {3.5013586287231283`*^9, 
   3.5013586400931444`*^9}, {3.5027658915998363`*^9, 3.502765896981846*^9}, {
   3.5027668222170715`*^9, 3.50276686143554*^9}, {3.505344692893856*^9, 
   3.5053446929038563`*^9}, {3.5092397382492895`*^9, 
   3.5092398121778193`*^9}, {3.51016418932094*^9, 3.5101642175257893`*^9}, {
   3.515189878545912*^9, 3.515189880095914*^9}, {3.5468767933175993`*^9, 
   3.5468767933275995`*^9}, {3.5468768261776457`*^9, 3.546876840807666*^9}, {
   3.5970221198909373`*^9, 3.597022121887741*^9}, {3.606326134992256*^9, 
   3.606326162262295*^9}, {3.606326216632371*^9, 3.6063262212223773`*^9}, {
   3.6080017854914956`*^9, 3.6080017855414953`*^9}, {3.60808761354961*^9, 
   3.608087615299612*^9}, {3.6092811406774817`*^9, 3.609281172107526*^9}, {
   3.6092812653676558`*^9, 3.6092812691976614`*^9}, {3.60928256085947*^9, 
   3.6092825907895117`*^9}, {3.6092827233996973`*^9, 3.6092827386097183`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{"u", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "v"}]}], ")"}], "m"], 
   RowBox[{"(", 
    RowBox[{"A", "+", 
     RowBox[{"B", " ", "v"}], "+", 
     RowBox[{"C", " ", 
      SuperscriptBox["v", "2"]}]}], ")"}], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", 
      SuperscriptBox["b", "2"]]}]}], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{"u", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "v"}]}], ")"}], 
      RowBox[{"m", "+", "1"}]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"b", " ", "B"}], "-", 
       RowBox[{"a", " ", "C"}], "+", 
       RowBox[{"b", " ", "C", " ", "v"}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9, 
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9, 
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9, 
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9, 
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9, 
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.499404301116287*^9, 
   3.49940430323629*^9}, {3.4994048006769867`*^9, 3.4994048025069895`*^9}, {
   3.5003179811489162`*^9, 3.5003179814297166`*^9}, 3.5003181853432746`*^9, {
   3.5003185563630857`*^9, 3.500318557803087*^9}, {3.5013586287231283`*^9, 
   3.5013586400931444`*^9}, {3.5027658915998363`*^9, 3.502765896981846*^9}, {
   3.5027668222170715`*^9, 3.50276686143554*^9}, {3.505344692893856*^9, 
   3.5053446929038563`*^9}, {3.5092397382492895`*^9, 
   3.5092398121778193`*^9}, {3.51016418932094*^9, 3.5101642175257893`*^9}, {
   3.515189878545912*^9, 3.515189880095914*^9}, {3.5468767933175993`*^9, 
   3.5468767933275995`*^9}, {3.5468768261776457`*^9, 3.546876840807666*^9}, {
   3.5970221198909373`*^9, 3.597022121887741*^9}, {3.606326134992256*^9, 
   3.606326162262295*^9}, {3.606326216632371*^9, 3.6063262212223773`*^9}, {
   3.6080017854914956`*^9, 3.6080017855414953`*^9}, {3.60808761354961*^9, 
   3.608087615299612*^9}, {3.6092811406774817`*^9, 3.609281172107526*^9}, {
   3.6092812653676558`*^9, 3.6092812691976614`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"u_.", "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a_.", "*", "v_"}], ")"}], "^", "m_"}], "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"b_.", "*", "v_"}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{"v_", "^", "2"}]}]}], ")"}]}], ",", "x_Symbol"}], "]"}], " ",
    ":=", "\n", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{"1", "/", "a"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"u", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "*", "v"}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "*", 
        RowBox[{"(", 
         RowBox[{"b", "+", 
          RowBox[{"c", "*", "v"}]}], ")"}]}], ",", "x"}], "]"}]}], " ", "/;", 
    "\n", 
    RowBox[{
     RowBox[{"FreeQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "x"}], "]"}], " ", "&&",
      " ", 
     RowBox[{"LeQ", "[", 
      RowBox[{"m", ",", 
       RowBox[{"-", "1"}]}], "]"}]}]}]}], " ", "*)"}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9, 
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9, 
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9}, 
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9, 
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9}, 
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9, 
   3.4992127382126956`*^9}, {3.4992128038327875`*^9, 
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9, 
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9, 
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9, 
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9}, 
   3.4993638009881725`*^9, {3.4993661760314975`*^9, 3.4993661794315023`*^9}, 
   3.4993699436547995`*^9, 3.499369995914872*^9, {3.5003179814609165`*^9, 
   3.5003179817417173`*^9}, 3.5003186747732515`*^9, {3.5003187057132945`*^9, 
   3.5003187115933027`*^9}, {3.5003194495843363`*^9, 3.500319453664342*^9}, {
   3.5003198135348454`*^9, 3.5003198411248837`*^9}, 3.500320756016165*^9, 
   3.50052634660607*^9, {3.501043281866661*^9, 3.5010432838407745`*^9}, {
   3.501358610383103*^9, 3.5013586217531185`*^9}, {3.5026774770619183`*^9, 
   3.5026774832519274`*^9}, {3.502677757052311*^9, 3.502677762832319*^9}, {
   3.502765679626664*^9, 3.502765694945891*^9}, {3.502766916862438*^9, 
   3.5027669304188614`*^9}, 3.5027671021907635`*^9, {3.503071895268139*^9, 
   3.5030719155981674`*^9}, {3.50351615772817*^9, 3.5035161598181725`*^9}, {
   3.503856818447089*^9, 3.503856835341919*^9}, {3.5053446929138565`*^9, 
   3.5053446929338565`*^9}, {3.5092398129578204`*^9, 
   3.5092399297864256`*^9}, {3.509240858050456*^9, 3.509240876630089*^9}, {
   3.5094733331253176`*^9, 3.509473337703579*^9}, 3.509475176411747*^9, 
   3.5094752858760085`*^9, 3.5099379677634096`*^9, 3.5099380908635817`*^9, {
   3.510162512862395*^9, 3.5101625133303957`*^9}, {3.510164194515749*^9, 
   3.5101642104433775`*^9}, 3.5101666942815046`*^9, {3.5120759144259744`*^9, 
   3.512075914615975*^9}, {3.5159797216064987`*^9, 3.515979724586104*^9}, 
   3.5168207803566356`*^9, {3.517001932668499*^9, 3.5170019351801033`*^9}, 
   3.541093952665062*^9, {3.541095139791547*^9, 3.541095141039549*^9}, 
   3.5413120604445763`*^9, {3.545492120309139*^9, 3.5454921203191385`*^9}, {
   3.546876866337702*^9, 3.546876923417782*^9}, {3.546876967297843*^9, 
   3.5468769759678555`*^9}, {3.5468791720509295`*^9, 3.546879173100931*^9}, {
   3.5468804604227333`*^9, 3.546880463732738*^9}, 3.546880992343478*^9, 
   3.5470662550883784`*^9, 3.5470790756403294`*^9, {3.5470792239905376`*^9, 
   3.54707922567054*^9}, {3.548435991537518*^9, 3.5484360112675457`*^9}, 
   3.548436409068103*^9, {3.5791280856299977`*^9, 3.579128124820053*^9}, {
   3.597022141356575*^9, 3.5970221894358597`*^9}, {3.6063264170126514`*^9, 
   3.606326430922671*^9}, {3.606326461282713*^9, 3.606326466542721*^9}, {
   3.606326513992787*^9, 3.606326562642855*^9}, 3.606327653986887*^9, 
   3.6078858952622037`*^9, {3.6080017855414953`*^9, 3.608001785561496*^9}, {
   3.60800181678154*^9, 3.6080018168115396`*^9}, {3.6080876297996325`*^9, 
   3.608087665489682*^9}, 3.6084075863498206`*^9, 3.608407658679922*^9, {
   3.609281340917762*^9, 3.609281433877892*^9}, 3.609281545428048*^9, {
   3.6092823940292363`*^9, 3.6092824844393625`*^9}, {3.6092827595597477`*^9, 
   3.609282777789774*^9}, {3.6961092576139708`*^9, 3.6961092770150003`*^9}, {
   3.715474201153344*^9, 3.7154742070016785`*^9}, {3.7419122241434374`*^9, 
   3.7419122286046925`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"u_.", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", "v_"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{"(", 
      RowBox[{"A_.", "+", 
       RowBox[{"B_.", "*", "v_"}], "+", 
       RowBox[{"C_.", "*", 
        RowBox[{"v_", "^", "2"}]}]}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", 
  ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"b", "^", "2"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{"u", "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "v"}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], "*", 
       RowBox[{"Simp", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"b", "*", "B"}], "-", 
          RowBox[{"a", "*", "C"}], "+", 
          RowBox[{"b", "*", "C", "*", "v"}]}], ",", "x"}], "]"}]}], ",", 
      "x"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "A", ",", "B", ",", "C"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"A", "*", 
        RowBox[{"b", "^", "2"}]}], "-", 
       RowBox[{"a", "*", "b", "*", "B"}], "+", 
       RowBox[{
        RowBox[{"a", "^", "2"}], "*", "C"}]}], ",", "0"}], "]"}], " ", "&&", 
    " ", 
    RowBox[{"LeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9, 
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9, 
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9}, 
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9, 
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9}, 
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9, 
   3.4992127382126956`*^9}, {3.4992128038327875`*^9, 
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9, 
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9, 
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9, 
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9}, 
   3.4993638009881725`*^9, {3.4993661760314975`*^9, 3.4993661794315023`*^9}, 
   3.4993699436547995`*^9, 3.499369995914872*^9, {3.5003179814609165`*^9, 
   3.5003179817417173`*^9}, 3.5003186747732515`*^9, {3.5003187057132945`*^9, 
   3.5003187115933027`*^9}, {3.5003194495843363`*^9, 3.500319453664342*^9}, {
   3.5003198135348454`*^9, 3.5003198411248837`*^9}, 3.500320756016165*^9, 
   3.50052634660607*^9, {3.501043281866661*^9, 3.5010432838407745`*^9}, {
   3.501358610383103*^9, 3.5013586217531185`*^9}, {3.5026774770619183`*^9, 
   3.5026774832519274`*^9}, {3.502677757052311*^9, 3.502677762832319*^9}, {
   3.502765679626664*^9, 3.502765694945891*^9}, {3.502766916862438*^9, 
   3.5027669304188614`*^9}, 3.5027671021907635`*^9, {3.503071895268139*^9, 
   3.5030719155981674`*^9}, {3.50351615772817*^9, 3.5035161598181725`*^9}, {
   3.503856818447089*^9, 3.503856835341919*^9}, {3.5053446929138565`*^9, 
   3.5053446929338565`*^9}, {3.5092398129578204`*^9, 
   3.5092399297864256`*^9}, {3.509240858050456*^9, 3.509240876630089*^9}, {
   3.5094733331253176`*^9, 3.509473337703579*^9}, 3.509475176411747*^9, 
   3.5094752858760085`*^9, 3.5099379677634096`*^9, 3.5099380908635817`*^9, {
   3.510162512862395*^9, 3.5101625133303957`*^9}, {3.510164194515749*^9, 
   3.5101642104433775`*^9}, 3.5101666942815046`*^9, {3.5120759144259744`*^9, 
   3.512075914615975*^9}, {3.5159797216064987`*^9, 3.515979724586104*^9}, 
   3.5168207803566356`*^9, {3.517001932668499*^9, 3.5170019351801033`*^9}, 
   3.541093952665062*^9, {3.541095139791547*^9, 3.541095141039549*^9}, 
   3.5413120604445763`*^9, {3.545492120309139*^9, 3.5454921203191385`*^9}, {
   3.546876866337702*^9, 3.546876923417782*^9}, {3.546876967297843*^9, 
   3.5468769759678555`*^9}, {3.5468791720509295`*^9, 3.546879173100931*^9}, {
   3.5468804604227333`*^9, 3.546880463732738*^9}, 3.546880992343478*^9, 
   3.5470662550883784`*^9, 3.5470790756403294`*^9, {3.5470792239905376`*^9, 
   3.54707922567054*^9}, {3.548435991537518*^9, 3.5484360112675457`*^9}, 
   3.548436409068103*^9, {3.5791280856299977`*^9, 3.579128124820053*^9}, {
   3.597022141356575*^9, 3.5970221894358597`*^9}, {3.6063264170126514`*^9, 
   3.606326430922671*^9}, {3.606326461282713*^9, 3.606326466542721*^9}, {
   3.606326513992787*^9, 3.606326562642855*^9}, 3.606327653986887*^9, 
   3.6078858952622037`*^9, {3.6080017855414953`*^9, 3.608001785561496*^9}, {
   3.60800181678154*^9, 3.6080018168115396`*^9}, {3.6080876297996325`*^9, 
   3.608087665489682*^9}, 3.6084075863498206`*^9, 3.608407658679922*^9, {
   3.609281340917762*^9, 3.609281433877892*^9}, 3.609281545428048*^9, 
   3.6092823940292363`*^9, 3.60928242516928*^9, 3.706141742308461*^9, {
   3.7154742142390924`*^9, 3.715474218439333*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["10:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{"u", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        SuperscriptBox["x", "n"]}]}], ")"}], "m"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        SuperscriptBox["x", 
         RowBox[{"-", "n"}]]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"a", " ", "c"}], "-", 
        RowBox[{"b", " ", "d"}]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
      RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.521070903512648*^9, 
   3.5210709252746863`*^9}, 3.521070971825168*^9, {3.5210731408529778`*^9, 
   3.5210731428653812`*^9}, {3.5211320572901077`*^9, 
   3.5211320822301426`*^9}, {3.521132813901167*^9, 3.5211328157011695`*^9}, {
   3.5211385933192577`*^9, 3.521138607669278*^9}, {3.521138975119793*^9, 
   3.521138978249797*^9}, {3.5211474082785463`*^9, 3.5211474127401543`*^9}, {
   3.5211476233093243`*^9, 3.5211476559445815`*^9}, {3.5211476939150476`*^9, 
   3.521147697908655*^9}, {3.521470255937501*^9, 3.521470256187101*^9}, {
   3.521657826023793*^9, 3.5216578261937933`*^9}, {3.5223444306610913`*^9, 
   3.522344447431115*^9}, {3.5223662876558514`*^9, 3.5223663277947226`*^9}, {
   3.522366448273734*^9, 3.522366452953742*^9}, {3.523320823379374*^9, 
   3.523320823379374*^9}, {3.523320893385089*^9, 3.5233208981434965`*^9}, {
   3.5238129496835737`*^9, 3.5238129509935756`*^9}, {3.5238137096246376`*^9, 
   3.5238137096246376`*^9}, 3.523813820704793*^9, {3.529214713445571*^9, 
   3.5292147159955745`*^9}, {3.5292147664456453`*^9, 
   3.5292147664456453`*^9}, {3.529244169541077*^9, 3.5292441758354373`*^9}, {
   3.529284867522999*^9, 3.5292848677629995`*^9}, {3.529447490433716*^9, 
   3.5294474992052174`*^9}, {3.529447547681525*^9, 3.529447551627751*^9}, {
   3.529624440491946*^9, 3.5296244407109585`*^9}, {3.530039118162446*^9, 
   3.5300391207824497`*^9}, {3.530047327328045*^9, 3.530047332588052*^9}, {
   3.5300475486383543`*^9, 3.5300475670883803`*^9}, {3.530047738988621*^9, 
   3.530047746148631*^9}, 3.53005101469053*^9, {3.532014841792571*^9, 
   3.5320148867826347`*^9}, {3.533927349155871*^9, 3.533927357055882*^9}, {
   3.5339274010959435`*^9, 3.5339274037859473`*^9}, 3.5339279117466583`*^9, {
   3.533927963696731*^9, 3.533927963696731*^9}, {3.5350838026271358`*^9, 
   3.5350838026271358`*^9}, {3.5353830577535677`*^9, 
   3.5353830757335925`*^9}, {3.535384446895512*^9, 3.535384446895512*^9}, 
   3.535385518367012*^9, {3.539393159695221*^9, 3.5393931669636374`*^9}, 
   3.5393935248155146`*^9, {3.540690664741729*^9, 3.540690665057747*^9}, {
   3.540690718106087*^9, 3.5406907183235903`*^9}, {3.5731613053783665`*^9, 
   3.5731613144983797`*^9}, {3.5731613624984465`*^9, 3.573161390058485*^9}, {
   3.5732256383383846`*^9, 3.5732256385567846`*^9}, {3.5978904685881925`*^9, 
   3.5978904687781925`*^9}, {3.602011649099177*^9, 3.602011649349177*^9}, {
   3.609281571128084*^9, 3.6092815720280857`*^9}, {3.609281679298236*^9, 
   3.609281679548236*^9}, {3.6092822978191013`*^9, 3.609282298099102*^9}, {
   3.609283144950288*^9, 3.6092831453902884`*^9}, {3.61333039402045*^9, 
   3.6133303941904507`*^9}, {3.653258536986967*^9, 3.6532585371669674`*^9}, {
   3.701052694698243*^9, 3.701052694874253*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic simplification", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9, {
   3.498790415276228*^9, 3.498790427132249*^9}}],

Cell[TextData[{
 "Basis: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"a", " ", "c"}], "-", 
     RowBox[{"b", " ", "d"}]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", 
       SuperscriptBox["x", 
        RowBox[{"-", "n"}]]}]}], ")"}], "p"], "\[Equal]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      FractionBox["d", "a"], ")"}], "p"], 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox["x", "n"]}]}], ")"}], "p"], 
     SuperscriptBox["x", 
      RowBox[{"n", " ", "p"}]]]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9, {
   3.498790415276228*^9, 3.498790427132249*^9}, {3.498790625383397*^9, 
   3.4987906379882193`*^9}, {3.49879077484726*^9, 3.498790863190215*^9}, {
   3.498790896340273*^9, 3.4987909105986986`*^9}, {3.498790950597169*^9, 
   3.498790974777211*^9}, {3.4987918281347103`*^9, 3.4987918299755135`*^9}, 
   3.498791908272051*^9, {3.533927483686059*^9, 3.5339274888460665`*^9}, {
   3.533927974586746*^9, 3.533928016366805*^9}, {3.5350836809369655`*^9, 
   3.5350836809369655`*^9}, {3.535083752607066*^9, 3.535083785197111*^9}, {
   3.5353830912736144`*^9, 3.5353830912736144`*^9}, {3.53538313131367*^9, 
   3.5353831563137054`*^9}, {3.535383228463806*^9, 3.535383228463806*^9}, {
   3.5353832798938785`*^9, 3.5353832798938785`*^9}, {3.535383471164146*^9, 
   3.5353834957441807`*^9}, {3.535383528764227*^9, 3.535383535534236*^9}, {
   3.5353836326143723`*^9, 3.5353836336343737`*^9}, {3.573161444768562*^9, 
   3.5731614539085746`*^9}, {3.5731614848386183`*^9, 3.573161546878705*^9}, {
   3.5731616518888516`*^9, 3.573161652088852*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"a", " ", "c"}], "-", 
     RowBox[{"b", " ", "d"}]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.495391733731629*^9, 3.495391739521637*^9}, {3.4957669003183846`*^9, 
   3.495766906158393*^9}, {3.4958177882919493`*^9, 3.495817793751957*^9}, {
   3.498790486521553*^9, 3.498790535090439*^9}, {3.4987918303811145`*^9, 
   3.4987918303811145`*^9}, {3.498791909878854*^9, 3.498791909878854*^9}, {
   3.533927392585932*^9, 3.533927394005934*^9}, {3.533928115046943*^9, 
   3.533928115046943*^9}, {3.535083824047166*^9, 3.535083824047166*^9}, {
   3.535384163775116*^9, 3.535384163775116*^9}, {3.5731619766093063`*^9, 
   3.5731619766093063`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{"u", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox["x", "n"]}]}], ")"}], "m"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", 
       SuperscriptBox["x", 
        RowBox[{"-", "n"}]]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox["d", "a"], ")"}], "p"]}]}], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"u", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           SuperscriptBox["x", "n"]}]}], ")"}], 
        RowBox[{"m", "+", "p"}]]}], 
      SuperscriptBox["x", 
       RowBox[{"n", " ", "p"}]]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, 3.495391718911608*^9, 
   3.495391753851657*^9, 3.4957667772682123`*^9, 3.495766807868255*^9, 
   3.4958178099519796`*^9, {3.4958178912220936`*^9, 3.49581790991212*^9}, 
   3.4986070768034644`*^9, {3.4987905501288652`*^9, 3.498790570533701*^9}, {
   3.4987909985360527`*^9, 3.4987910184104877`*^9}, {3.4987918310675154`*^9, 
   3.498791833064319*^9}, {3.5339281036869273`*^9, 3.5339281324569674`*^9}, 
   3.535083838477186*^9, {3.5353837379045196`*^9, 3.535383783324583*^9}, {
   3.5353838142146263`*^9, 3.5353838176046314`*^9}, {3.5353855384170403`*^9, 
   3.535385540257043*^9}, {3.539393222563817*^9, 3.539393253309576*^9}, 
   3.573161728388959*^9, {3.5731618079190702`*^9, 3.573161828209099*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"u_.", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"x_", "^", "n_."}]}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"x_", "^", "q_."}]}]}], ")"}], "^", "p_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"d", "/", "a"}], ")"}], "^", "p"}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{"u", "*", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"x", "^", "n"}]}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "p"}], ")"}]}], "/", 
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"n", "*", "p"}], ")"}]}]}]}], ",", "x"}], "]"}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"q", ",", 
      RowBox[{"-", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "p", "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "*", "c"}], "-", 
       RowBox[{"b", "*", "d"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{
      RowBox[{"IntegerQ", "[", "m", "]"}], " ", "&&", " ", 
      RowBox[{"NegQ", "[", "n", "]"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.495391490771289*^9, 3.4957666893580894`*^9, {3.4957669395384398`*^9, 
   3.49576696833848*^9}, 3.4958177798619375`*^9, {3.4986070917482905`*^9, 
   3.498607096490699*^9}, {3.4987910745081863`*^9, 3.4987911015274334`*^9}, {
   3.4987911322594876`*^9, 3.498791177343567*^9}, 3.4987912538929014`*^9, {
   3.498791834203121*^9, 3.498791836231125*^9}, 3.498791957396538*^9, {
   3.5291773889741344`*^9, 3.5291773935605426`*^9}, {3.533927437135994*^9, 
   3.5339274400359983`*^9}, {3.5339281660270147`*^9, 
   3.5339282284371023`*^9}, {3.5339282979771996`*^9, 
   3.5339283015872045`*^9}, {3.5350838438171935`*^9, 3.535083871017232*^9}, {
   3.535383866264699*^9, 3.535383933994794*^9}, {3.5353840198649144`*^9, 
   3.535384044534949*^9}, {3.5353840774149947`*^9, 3.535384128115066*^9}, {
   3.5353855694570837`*^9, 3.5353856213971567`*^9}, {3.5353856694072237`*^9, 
   3.535385683917244*^9}, {3.5393932320473595`*^9, 3.5393932440840483`*^9}, 
   3.5393932756308527`*^9, {3.5393933188459363`*^9, 3.5393933313436513`*^9}, {
   3.540676067044408*^9, 3.5406760702644124`*^9}, {3.5422487703677206`*^9, 
   3.542248805405382*^9}, 3.573161349898429*^9, {3.573161843919121*^9, 
   3.573161864109149*^9}, {3.5731619482392664`*^9, 3.573161959189282*^9}, {
   3.573162013509358*^9, 3.5731620605194235`*^9}, {3.573162106549488*^9, 
   3.573162117239503*^9}, {3.573226212730193*^9, 3.573226214851797*^9}, {
   3.706141742338461*^9, 3.706141742348461*^9}, {3.715474231187062*^9, 
   3.7154742389985085`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["11:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{"u", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        SuperscriptBox["x", "n"]}]}], ")"}], "m"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        SuperscriptBox["x", 
         RowBox[{"2", "n"}]]}]}], ")"}], 
     RowBox[{"-", "m"}]], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["b", "2"], " ", "c"}], "+", 
        RowBox[{
         SuperscriptBox["a", "2"], " ", "d"}]}], "\[Equal]", "0"}], " ", 
      "\[And]", " ", 
      RowBox[{"a", ">", "0"}], " ", "\[And]", " ", 
      RowBox[{"d", "<", "0"}]}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.521070903512648*^9, 
   3.5210709252746863`*^9}, 3.521070971825168*^9, {3.5210731408529778`*^9, 
   3.5210731428653812`*^9}, {3.5211320572901077`*^9, 
   3.5211320822301426`*^9}, {3.521132813901167*^9, 3.5211328157011695`*^9}, {
   3.5211385933192577`*^9, 3.521138607669278*^9}, {3.521138975119793*^9, 
   3.521138978249797*^9}, {3.5211474082785463`*^9, 3.5211474127401543`*^9}, {
   3.5211476233093243`*^9, 3.5211476559445815`*^9}, {3.5211476939150476`*^9, 
   3.521147697908655*^9}, {3.521470255937501*^9, 3.521470256187101*^9}, {
   3.521657826023793*^9, 3.5216578261937933`*^9}, {3.5223444306610913`*^9, 
   3.522344447431115*^9}, {3.5223662876558514`*^9, 3.5223663277947226`*^9}, {
   3.522366448273734*^9, 3.522366452953742*^9}, {3.523320823379374*^9, 
   3.523320823379374*^9}, {3.523320893385089*^9, 3.5233208981434965`*^9}, {
   3.5238129496835737`*^9, 3.5238129509935756`*^9}, {3.5238137096246376`*^9, 
   3.5238137096246376`*^9}, 3.523813820704793*^9, {3.529214713445571*^9, 
   3.5292147159955745`*^9}, {3.5292147664456453`*^9, 
   3.5292147664456453`*^9}, {3.529244169541077*^9, 3.5292441758354373`*^9}, {
   3.529284867522999*^9, 3.5292848677629995`*^9}, {3.529447490433716*^9, 
   3.5294474992052174`*^9}, {3.529447547681525*^9, 3.529447551627751*^9}, {
   3.529624440491946*^9, 3.5296244407109585`*^9}, {3.530039118162446*^9, 
   3.5300391207824497`*^9}, {3.530047327328045*^9, 3.530047332588052*^9}, {
   3.5300475486383543`*^9, 3.5300475670883803`*^9}, {3.530047738988621*^9, 
   3.530047746148631*^9}, 3.53005101469053*^9, {3.532014841792571*^9, 
   3.5320148867826347`*^9}, {3.533927349155871*^9, 3.533927357055882*^9}, {
   3.5339274010959435`*^9, 3.5339274037859473`*^9}, 3.5339279117466583`*^9, {
   3.533927963696731*^9, 3.533927963696731*^9}, {3.5350838026271358`*^9, 
   3.5350838026271358`*^9}, {3.5353830577535677`*^9, 
   3.5353830757335925`*^9}, {3.535384446895512*^9, 3.535384446895512*^9}, 
   3.535385518367012*^9, {3.539393159695221*^9, 3.5393931669636374`*^9}, 
   3.5393935248155146`*^9, {3.5406903944364233`*^9, 3.5406904021081076`*^9}, {
   3.5406906883310127`*^9, 3.5406907128104124`*^9}, {3.5406918674417477`*^9, 
   3.5406918716117535`*^9}, {3.5713332071724925`*^9, 3.571333208262494*^9}, {
   3.5727099531382003`*^9, 3.5727099533482003`*^9}, {3.5732256404755883`*^9, 
   3.573225640693989*^9}, {3.5978904716181965`*^9, 3.597890471898197*^9}, {
   3.6020116511091795`*^9, 3.6020116582991896`*^9}, {3.6092815736480875`*^9, 
   3.609281573838088*^9}, {3.609281681528239*^9, 3.6092816817882395`*^9}, {
   3.6092822997891045`*^9, 3.6092822999491043`*^9}, {3.60928314671029*^9, 
   3.6092831468602905`*^9}, {3.6133303955304523`*^9, 
   3.6133303956904526`*^9}, {3.6532585386569695`*^9, 
   3.6532585388469696`*^9}, {3.7010526964923453`*^9, 3.701052699244503*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic simplification", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9, {
   3.498790415276228*^9, 3.498790427132249*^9}}],

Cell[TextData[{
 "Basis: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      SuperscriptBox["b", "2"], " ", "c"}], "+", 
     RowBox[{
      SuperscriptBox["a", "2"], " ", "d"}]}], "\[Equal]", "0"}], " ", 
   "\[And]", " ", 
   RowBox[{"a", ">", "0"}], " ", "\[And]", " ", 
   RowBox[{"d", "<", "0"}]}]]],
 ", then ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "z"}]}], ")"}], "m"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        SuperscriptBox["z", "2"]}]}], ")"}], 
     RowBox[{"-", "m"}]]}], "\[Equal]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox["b", "2"], "d"]}], ")"}], "m"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "-", 
       RowBox[{"b", " ", "z"}]}], ")"}], 
     RowBox[{"-", "m"}]]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9, {
   3.498790415276228*^9, 3.498790427132249*^9}, {3.498790625383397*^9, 
   3.4987906379882193`*^9}, {3.49879077484726*^9, 3.498790863190215*^9}, {
   3.498790896340273*^9, 3.4987909105986986`*^9}, {3.498790950597169*^9, 
   3.498790974777211*^9}, {3.4987918281347103`*^9, 3.4987918299755135`*^9}, 
   3.498791908272051*^9, {3.533927483686059*^9, 3.5339274888460665`*^9}, {
   3.533927974586746*^9, 3.533928016366805*^9}, {3.5350836809369655`*^9, 
   3.5350836809369655`*^9}, {3.535083752607066*^9, 3.535083785197111*^9}, {
   3.5353830912736144`*^9, 3.5353830912736144`*^9}, {3.53538313131367*^9, 
   3.5353831563137054`*^9}, {3.535383228463806*^9, 3.535383228463806*^9}, {
   3.5353832798938785`*^9, 3.5353832798938785`*^9}, {3.535383471164146*^9, 
   3.5353834957441807`*^9}, {3.535383528764227*^9, 3.535383535534236*^9}, {
   3.5353836326143723`*^9, 3.5353836336343737`*^9}, {3.5406902286889963`*^9, 
   3.540690296326812*^9}, {3.5406903555601997`*^9, 3.5406903555601997`*^9}, {
   3.540691884781772*^9, 3.5406918897617793`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      SuperscriptBox["b", "2"], " ", "c"}], "+", 
     RowBox[{
      SuperscriptBox["a", "2"], " ", "d"}]}], "\[Equal]", "0"}], " ", 
   "\[And]", " ", 
   RowBox[{"a", ">", "0"}], " ", "\[And]", " ", 
   RowBox[{"d", "<", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.495391733731629*^9, 3.495391739521637*^9}, {3.4957669003183846`*^9, 
   3.495766906158393*^9}, {3.4958177882919493`*^9, 3.495817793751957*^9}, {
   3.498790486521553*^9, 3.498790535090439*^9}, {3.4987918303811145`*^9, 
   3.4987918303811145`*^9}, {3.498791909878854*^9, 3.498791909878854*^9}, {
   3.533927392585932*^9, 3.533927394005934*^9}, {3.533928115046943*^9, 
   3.533928115046943*^9}, {3.535083824047166*^9, 3.535083824047166*^9}, {
   3.535384163775116*^9, 3.535384163775116*^9}, {3.5406903754493375`*^9, 
   3.5406903754503374`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{"u", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox["x", "n"]}]}], ")"}], "m"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", 
       SuperscriptBox["x", 
        RowBox[{"2", "n"}]]}]}], ")"}], 
    RowBox[{"-", "m"}]], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox["b", "2"], "d"]}], ")"}], "m"]}]}], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{"u", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "-", 
        RowBox[{"b", " ", 
         SuperscriptBox["x", "n"]}]}], ")"}], 
      RowBox[{"-", "m"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, 3.495391718911608*^9, 
   3.495391753851657*^9, 3.4957667772682123`*^9, 3.495766807868255*^9, 
   3.4958178099519796`*^9, {3.4958178912220936`*^9, 3.49581790991212*^9}, 
   3.4986070768034644`*^9, {3.4987905501288652`*^9, 3.498790570533701*^9}, {
   3.4987909985360527`*^9, 3.4987910184104877`*^9}, {3.4987918310675154`*^9, 
   3.498791833064319*^9}, {3.5339281036869273`*^9, 3.5339281324569674`*^9}, 
   3.535083838477186*^9, {3.5353837379045196`*^9, 3.535383783324583*^9}, {
   3.5353838142146263`*^9, 3.5353838176046314`*^9}, {3.5353855384170403`*^9, 
   3.535385540257043*^9}, {3.539393222563817*^9, 3.539393253309576*^9}, {
   3.540687084697549*^9, 3.5406871211306334`*^9}, {3.54068715464755*^9, 
   3.5406871759582515`*^9}, 3.5406877289212003`*^9, 3.5406877957869945`*^9, 
   3.5406879676838017`*^9, {3.5406919439118547`*^9, 3.5406919507018642`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"u_.", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"x_", "^", "n_."}]}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"x_", "^", "j_"}]}]}], ")"}], "^", "p_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"b", "^", "2"}]}], "/", "d"}], ")"}], "^", "m"}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{"u", "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "-", 
          RowBox[{"b", "*", 
           RowBox[{"x", "^", "n"}]}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"-", "m"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n", ",", "p"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"j", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"p", ",", 
      RowBox[{"-", "m"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"b", "^", "2"}], "*", "c"}], "+", 
       RowBox[{
        RowBox[{"a", "^", "2"}], "*", "d"}]}], ",", "0"}], "]"}], " ", "&&", 
    " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"a", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"d", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.495391490771289*^9, 3.4957666893580894`*^9, {3.4957669395384398`*^9, 
   3.49576696833848*^9}, 3.4958177798619375`*^9, {3.4986070917482905`*^9, 
   3.498607096490699*^9}, {3.4987910745081863`*^9, 3.4987911015274334`*^9}, {
   3.4987911322594876`*^9, 3.498791177343567*^9}, 3.4987912538929014`*^9, {
   3.498791834203121*^9, 3.498791836231125*^9}, 3.498791957396538*^9, {
   3.5291773889741344`*^9, 3.5291773935605426`*^9}, {3.533927437135994*^9, 
   3.5339274400359983`*^9}, {3.5339281660270147`*^9, 
   3.5339282284371023`*^9}, {3.5339282979771996`*^9, 
   3.5339283015872045`*^9}, {3.5350838438171935`*^9, 3.535083871017232*^9}, {
   3.535383866264699*^9, 3.535383933994794*^9}, {3.5353840198649144`*^9, 
   3.535384044534949*^9}, {3.5353840774149947`*^9, 3.535384128115066*^9}, {
   3.5353855694570837`*^9, 3.5353856213971567`*^9}, {3.5353856694072237`*^9, 
   3.535385683917244*^9}, {3.5393932320473595`*^9, 3.5393932440840483`*^9}, 
   3.5393932756308527`*^9, {3.5393933188459363`*^9, 3.5393933313436513`*^9}, {
   3.540676067044408*^9, 3.5406760702644124`*^9}, {3.540690445188572*^9, 
   3.5406905847665553`*^9}, {3.540691879891765*^9, 3.5406919251918287`*^9}, {
   3.5406919747818985`*^9, 3.5406919749818983`*^9}, {3.5422488238134146`*^9, 
   3.5422488340002327`*^9}, {3.7061417423684616`*^9, 3.706141742388461*^9}, {
   3.7154742475479975`*^9, 3.715474292677579*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["12:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{"u", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        SuperscriptBox["x", "n"]}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", 
         RowBox[{"2", " ", "n"}]]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{
       RowBox[{
        SuperscriptBox["b", "2"], "-", 
        RowBox[{"4", " ", "a", " ", "c"}]}], "\[Equal]", "0"}], " ", "\[And]",
       " ", 
      RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.5192504337891226`*^9, 3.5192504707812386`*^9}, 3.5192506717957726`*^9, {
   3.519250720795459*^9, 3.5192507409818945`*^9}, 3.519258420209427*^9, 
   3.519258489779525*^9, {3.519320786305674*^9, 3.519320803294104*^9}, {
   3.519329422708468*^9, 3.5193294257984724`*^9}, 3.5193294706485353`*^9, {
   3.5193302883925123`*^9, 3.519330307237345*^9}, {3.5193303440378103`*^9, 
   3.5193303650666466`*^9}, 3.5193341918281684`*^9, {3.5193346196121197`*^9, 
   3.519334632840943*^9}, {3.519341922663512*^9, 3.5193419232095127`*^9}, 
   3.5193423494490614`*^9, {3.5193456600396833`*^9, 3.519345660273684*^9}, 
   3.519410696547495*^9, {3.519793559756592*^9, 3.5197935600217924`*^9}, {
   3.5210541942272606`*^9, 3.5210542323693275`*^9}, {3.521054705798959*^9, 
   3.5210547345342093`*^9}, {3.521055431683834*^9, 3.5210554455522585`*^9}, {
   3.5210554827427235`*^9, 3.5210555031319594`*^9}, {3.521056059772137*^9, 
   3.521056075652965*^9}, {3.521057417664521*^9, 3.521057417867322*^9}, {
   3.5210574854778404`*^9, 3.5210574857586412`*^9}, {3.5210575212175035`*^9, 
   3.521057540483537*^9}, {3.521070834576127*^9, 3.52107083619853*^9}, {
   3.521308858312109*^9, 3.5213088770221353`*^9}, {3.521331343975354*^9, 
   3.521331343975354*^9}, {3.521331522725604*^9, 3.5213315308556156`*^9}, {
   3.5213912175360794`*^9, 3.521391229048899*^9}, {3.52139665230506*^9, 
   3.521396652710661*^9}, {3.5213967198687787`*^9, 3.5213967198687787`*^9}, {
   3.521468140815627*^9, 3.521468179035694*^9}, {3.523242660763112*^9, 
   3.523242661137512*^9}, {3.523318981586413*^9, 3.523318983730816*^9}, {
   3.5291887052313433`*^9, 3.52918878137145*^9}, {3.529188830741519*^9, 
   3.529188830741519*^9}, {3.53214688128094*^9, 3.532146881780141*^9}, 
   3.5758355447255116`*^9, {3.651700488662496*^9, 3.651700520520318*^9}, {
   3.651700610136444*^9, 3.651700611966549*^9}, {3.6517006657426243`*^9, 
   3.651700666807685*^9}, {3.6532585406869726`*^9, 3.6532585438169765`*^9}, {
   3.7010270212738066`*^9, 3.7010270215608234`*^9}, {3.7010527016556406`*^9, 
   3.701052701834651*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic simplification", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496539361088545*^9}],

Cell[TextData[{
 "Basis: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["b", "2"], "-", 
    RowBox[{"4", " ", "a", " ", "c"}]}], "=", "0"}]]],
 ", then  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"a", "+", 
    RowBox[{"b", " ", "z"}], "+", 
    RowBox[{"c", " ", 
     SuperscriptBox["z", "2"]}]}], "\[Equal]", 
   RowBox[{
    FractionBox["1", "c"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       FractionBox["b", "2"], "+", 
       RowBox[{"c", " ", "z"}]}], ")"}], "2"]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{{3.4964415366109805`*^9, 3.496441558421011*^9}, {
   3.4964427205723457`*^9, 3.496442726484756*^9}, {3.4964511572548466`*^9, 
   3.496451196884902*^9}, {3.4965393767485666`*^9, 3.496539395848593*^9}, {
   3.496539538598793*^9, 3.4965395528788133`*^9}, {3.496599991141302*^9, 
   3.4965999995913143`*^9}, {3.4968660163682985`*^9, 
   3.4968660163682985`*^9}, {3.496866218173854*^9, 3.4968662263482685`*^9}, 
   3.496961748839144*^9, {3.5210577239710593`*^9, 3.521057732925475*^9}, {
   3.521058041525217*^9, 3.5210580429136195`*^9}, {3.521483161585779*^9, 
   3.521483163795782*^9}, {3.521483328636013*^9, 3.5214833473460393`*^9}}],

Cell[TextData[{
 "Basis: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["b", "2"], "-", 
    RowBox[{"4", " ", "a", " ", "c"}]}], "\[Equal]", "0"}]]],
 ", then  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"a", "+", 
    RowBox[{"b", " ", "z"}], "+", 
    RowBox[{"c", " ", 
     SuperscriptBox["z", "2"]}]}], "\[Equal]", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SqrtBox["a"], "+", 
      FractionBox[
       RowBox[{"b", " ", "z"}], 
       RowBox[{"2", " ", 
        SqrtBox["a"]}]]}], ")"}], "2"]}]]]
}], "Subsubsection",
 CellChangeTimes->{{3.4964415366109805`*^9, 3.496441558421011*^9}, {
   3.4964427205723457`*^9, 3.496442726484756*^9}, {3.4964511572548466`*^9, 
   3.496451196884902*^9}, {3.4965393767485666`*^9, 3.496539395848593*^9}, {
   3.496539538598793*^9, 3.4965395528788133`*^9}, {3.496599991141302*^9, 
   3.4965999995913143`*^9}, {3.4968660163682985`*^9, 
   3.4968660163682985`*^9}, {3.496866218173854*^9, 3.4968662263482685`*^9}, 
   3.496961748839144*^9, {3.5210577239710593`*^9, 3.521057732925475*^9}, {
   3.521058041525217*^9, 3.5210580429136195`*^9}, {3.5239064424770665`*^9, 
   3.523906455897085*^9}, {3.523906731447471*^9, 3.523906757117507*^9}, {
   3.646347229223134*^9, 3.646347229223134*^9}, {3.6463473521611657`*^9, 
   3.6463473575424733`*^9}, {3.6517006566021013`*^9, 3.651700660157305*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["b", "2"], "-", 
     RowBox[{"4", " ", "a", " ", "c"}]}], "\[Equal]", "0"}], " ", "\[And]", 
   " ", 
   RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, {
   3.496539487018721*^9, 3.4965395223187704`*^9}, {3.4966001213614845`*^9, 
   3.4966001362815056`*^9}, {3.496866299808798*^9, 3.49686631247602*^9}, {
   3.496866457883875*^9, 3.4968664891931305`*^9}, {3.5210576203400774`*^9, 
   3.5210576203400774`*^9}, {3.5210708411125383`*^9, 3.521070842485341*^9}, {
   3.5213089028321714`*^9, 3.5213089028321714`*^9}, {3.5213313799154043`*^9, 
   3.5213313799154043`*^9}, {3.5213315414356303`*^9, 
   3.5213315414356303`*^9}, {3.5213913181094556`*^9, 
   3.5213913181094556`*^9}, {3.5213967762784777`*^9, 
   3.5213967762784777`*^9}, {3.529188813531495*^9, 3.529188832951522*^9}, {
   3.5321469158038006`*^9, 3.5321469161470013`*^9}, 3.650221828694759*^9, {
   3.650221873019294*^9, 3.650221873351313*^9}, {3.65170053664024*^9, 
   3.6517005390753794`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{"u", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox["x", "n"]}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", 
        RowBox[{"2", " ", "n"}]]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", 
      SuperscriptBox["c", "p"]]}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{"u", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        FractionBox["b", "2"], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}]}], ")"}], 
      RowBox[{"2", "p"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496539460708684*^9, 3.4965394707586985`*^9}, 
   3.496600060211399*^9, {3.4966000910714426`*^9, 3.4966000949114475`*^9}, 
   3.496866161015354*^9, {3.496866341975672*^9, 3.496866374049328*^9}, {
   3.651700523905512*^9, 3.651700527602723*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"u_.", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", "x_"}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}], "^", "p_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"u", "*", 
      RowBox[{"Cancel", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"b", "/", "2"}], "+", 
           RowBox[{"c", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"2", "*", "p"}], ")"}]}], "/", 
        RowBox[{"c", "^", "p"}]}], "]"}]}], ",", "x"}], "]"}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], "-", 
       RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "p", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4964640239339876`*^9, 3.4965393275184975`*^9, 3.4965999397912307`*^9, {
   3.496866401146576*^9, 3.4968664200070086`*^9}, {3.496866508115964*^9, 
   3.496866599126523*^9}, {3.5171911370306787`*^9, 3.5171911392926826`*^9}, {
   3.52105759360163*^9, 3.521057607423255*^9}, {3.5210581197125545`*^9, 
   3.521058128042969*^9}, {3.5210599411405535`*^9, 3.5210599614049892`*^9}, {
   3.523906581117261*^9, 3.523906596237282*^9}, {3.523906643887348*^9, 
   3.5239066929074173`*^9}, 3.524704026618037*^9, 3.524706721289516*^9, 
   3.525485231551759*^9, 3.5256227011812735`*^9, 3.525622796461407*^9, {
   3.5315069627677774`*^9, 3.531507024997259*^9}, 3.531932241792345*^9, {
   3.5695123587849455`*^9, 3.569512359892547*^9}, {3.65169963325957*^9, 
   3.6516996752619724`*^9}, {3.651700502830306*^9, 3.6517005068875384`*^9}, {
   3.651700603014036*^9, 3.651700606845256*^9}, 3.7061417424084616`*^9, {
   3.715474300636034*^9, 3.715474300897049*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"u_.", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"x_", "^", "n_"}]}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{"x_", "^", "n2_."}]}]}], ")"}], "^", "p_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"c", "^", "p"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{"u", "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"b", "/", "2"}], "+", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "n"}]}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"2", "*", "p"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "n"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"n2", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], "-", 
       RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "p", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4964640239339876`*^9, 3.4965393275184975`*^9, 3.4965999397912307`*^9, {
   3.496866401146576*^9, 3.4968664200070086`*^9}, {3.496866508115964*^9, 
   3.496866599126523*^9}, {3.5171911370306787`*^9, 3.5171911392926826`*^9}, {
   3.52105759360163*^9, 3.521057607423255*^9}, {3.5210581197125545`*^9, 
   3.521058128042969*^9}, 3.5213083540814033`*^9, {3.521308884662146*^9, 
   3.5213088906021543`*^9}, {3.521309011292323*^9, 3.5213090121823244`*^9}, {
   3.521331653795788*^9, 3.5213316557157907`*^9}, {3.521391247316531*^9, 
   3.521391249266535*^9}, 3.5213967521608353`*^9, 3.523242160783434*^9, {
   3.5291888023914795`*^9, 3.5291888046514826`*^9}, {3.5321469251638174`*^9, 
   3.5321469266926203`*^9}, 3.536532016406956*^9, {3.542295663419697*^9, 
   3.5422956685294867`*^9}, {3.636941003332033*^9, 3.6369410039390674`*^9}, {
   3.651700543385626*^9, 3.6517005496889863`*^9}, 3.6517007608220625`*^9, {
   3.7061417424284616`*^9, 3.7061417424384613`*^9}, {3.715474306194352*^9, 
   3.715474309693552*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
},
AutoGeneratedPackage->Automatic,
CellGrouping->Manual,
WindowSize->{1908, 946},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingStartingPageNumber->1,
PrintingPageRange->{1, 32000},
PageHeaders->{{
   Cell[
    TextData[{
      StyleBox[
       CounterBox["Page"], "PageNumber"], " ", "|", " ", 
      StyleBox[
       ValueBox["FileName"], "Header"]}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, {
   Cell[
    TextData[{"Integrand", " ", "Simplification", " ", "Rules"}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, 
   Cell[
    TextData[
     CounterBox["Page", CounterFunction :> Identity]], "Header", 
    CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}},
PageFooters->{{None, None, None}, {None, None, None}},
PageHeaderLines->{False, False},
PageFooterLines->{False, False},
PrintingOptions->{"FacingPages"->False,
"FirstPageFace"->Right,
"FirstPageFooter"->False,
"FirstPageHeader"->False,
"Magnification"->1.,
"PaperOrientation"->"Landscape",
"PaperSize"->{792, 612},
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->28.8},
Magnification->1.399999976158142,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 3048, 45, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[3618, 69, 2137, 38, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[5780, 111, 4140, 67, 3455492, "Subsubtitle"],
Cell[9923, 180, 257, 4, 2218859, "Subsubsection"],
Cell[10183, 186, 341, 6, 1520700, "Subsubsection"],
Cell[10527, 194, 403, 7, 1520700, "Subsubsection"],
Cell[10933, 203, 1123, 19, 1634225, "Subsubsection"],
Cell[12059, 224, 1376, 28, 3455492, "Subsubtitle"],
Cell[13438, 254, 771, 11, 2218859, "Subsubsection"],
Cell[14212, 267, 2077, 40, 6788083, "Code"],
Cell[16292, 309, 89, 2, 2218859, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[16418, 316, 4050, 67, 3455492, "Subsubtitle"],
Cell[20471, 385, 257, 4, 2218859, "Subsubsection"],
Cell[20731, 391, 1075, 19, 1634225, "Subsubsection"],
Cell[21809, 412, 1466, 32, 3455492, "Subsubtitle"],
Cell[23278, 446, 771, 11, 2218859, "Subsubsection"],
Cell[24052, 459, 2107, 46, 6788083, "Code"],
Cell[26162, 507, 89, 2, 2218859, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[26288, 514, 4100, 68, 3455492, "Subsubtitle"],
Cell[30391, 584, 257, 4, 2218859, "Subsubsection"],
Cell[30651, 590, 1121, 19, 1634225, "Subsubsection"],
Cell[31775, 611, 1434, 30, 3455492, "Subsubtitle"],
Cell[33212, 643, 771, 11, 2218859, "Subsubsection"],
Cell[33986, 656, 2038, 42, 6788083, "Code"],
Cell[36027, 700, 89, 2, 2218859, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[36153, 707, 4281, 72, 3455492, "Subsubtitle"],
Cell[40437, 781, 257, 4, 2218859, "Subsubsection"],
Cell[40697, 787, 1075, 19, 1634225, "Subsubsection"],
Cell[41775, 808, 1636, 38, 3455492, "Subsubtitle"],
Cell[43414, 848, 771, 11, 2218859, "Subsubsection"],
Cell[44188, 861, 2386, 55, 6788083, "Code"],
Cell[46577, 918, 89, 2, 2218859, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[46703, 925, 4281, 72, 3455492, "Subsubtitle"],
Cell[50987, 999, 257, 4, 2218859, "Subsubsection"],
Cell[51247, 1005, 1125, 19, 1634225, "Subsubsection"],
Cell[52375, 1026, 1622, 37, 3455492, "Subsubtitle"],
Cell[54000, 1065, 771, 11, 2218859, "Subsubsection"],
Cell[54774, 1078, 2400, 54, 6788083, "Code"],
Cell[57177, 1134, 89, 2, 2218859, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[57303, 1141, 4333, 72, 3455492, "Subsubtitle"],
Cell[61639, 1215, 257, 4, 2218859, "Subsubsection"],
Cell[61899, 1221, 1121, 19, 1634225, "Subsubsection"],
Cell[63023, 1242, 1641, 37, 3455492, "Subsubtitle"],
Cell[64667, 1281, 771, 11, 2218859, "Subsubsection"],
Cell[65441, 1294, 2353, 52, 6788083, "Code"],
Cell[67797, 1348, 89, 2, 2218859, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[67935, 1356, 5391, 100, 53, "Subsubtitle"],
Cell[73329, 1458, 356, 5, 2218859, "Subsubsection"],
Cell[73688, 1465, 9783, 143, 1634225, "Subsubsection"],
Cell[83474, 1610, 2885, 53, 3455492, "Subsubtitle"],
Cell[86362, 1665, 771, 11, 2218859, "Subsubsection"],
Cell[87136, 1678, 4343, 77, 6788083, "Code"],
Cell[91482, 1757, 89, 2, 2218859, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[91608, 1764, 4733, 77, 53, "Subsubtitle"],
Cell[96344, 1843, 257, 4, 253, "Subsubsection"],
Cell[96604, 1849, 595, 10, 174, "Subsubsection"],
Cell[97202, 1861, 1444, 26, 187, "Subsubsection"],
Cell[98649, 1889, 1689, 32, 393, "Subsubtitle"],
Cell[100341, 1923, 771, 11, 253, "Subsubsection"],
Cell[101115, 1936, 2485, 47, 771, "Code"],
Cell[103603, 1985, 89, 2, 253, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[103729, 1992, 1942, 32, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[105696, 2028, 1823, 32, 3455492, "Subsubtitle"],
Cell[107522, 2062, 235, 4, 2218859, "Subsubsection"],
Cell[107760, 2068, 763, 11, 1520700, "Subsubsection"],
Cell[108526, 2081, 620, 14, 3455492, "Subsubtitle"],
Cell[109149, 2097, 771, 11, 2218859, "Subsubsection"],
Cell[109923, 2110, 498, 11, 6788083, "Code"],
Cell[110424, 2123, 89, 2, 2218859, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[110550, 2130, 1933, 35, 3455492, "Subsubtitle"],
Cell[112486, 2167, 184, 3, 2218859, "Subsubsection"],
Cell[112673, 2172, 815, 11, 1520700, "Subsubsection"],
Cell[113491, 2185, 1402, 30, 4161067, "Subsubtitle"],
Cell[114896, 2217, 771, 11, 2218859, "Subsubsection"],
Cell[115670, 2230, 851, 25, 6788083, "Code"],
Cell[116524, 2257, 89, 2, 2218859, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[116650, 2264, 1857, 32, 3455492, "Subsubtitle"],
Cell[118510, 2298, 198, 3, 2218859, "Subsubsection"],
Cell[118711, 2303, 351, 5, 1520700, "Subsubsection"],
Cell[119065, 2310, 1193, 19, 1634225, "Subsubsection"],
Cell[120261, 2331, 815, 11, 1520700, "Subsubsection"],
Cell[121079, 2344, 1220, 23, 3455492, "Subsubtitle"],
Cell[122302, 2369, 771, 11, 2218859, "Subsubsection"],
Cell[123076, 2382, 1502, 26, 5143940, "Code"],
Cell[124581, 2410, 1835, 37, 7467268, "Code"],
Cell[126419, 2449, 1096, 27, 7467268, "Code"],
Cell[127518, 2478, 89, 2, 2218859, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[127656, 2486, 2418, 41, 53, "Subsubtitle"],
Cell[130077, 2529, 473, 7, 7279, "Subsubsection"],
Cell[130553, 2538, 569, 10, 4989, "Subsubsection"],
Cell[131125, 2550, 765, 11, 4989, "Subsubsection"],
Cell[131893, 2563, 1376, 30, 11334, "Subsubtitle"],
Cell[133272, 2595, 771, 11, 7279, "Subsubsection"],
Cell[134046, 2608, 2587, 46, 60370, "Code"],
Cell[136636, 2656, 89, 2, 7279, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[136762, 2663, 2634, 45, 53, "Subsubtitle"],
Cell[139399, 2710, 506, 7, 968, "Subsubsection"],
Cell[139908, 2719, 765, 11, 664, "Subsubsection"],
Cell[140676, 2732, 1643, 37, 1506, "Subsubtitle"],
Cell[142322, 2771, 771, 11, 968, "Subsubsection"],
Cell[143096, 2784, 3248, 68, 2958, "Code"],
Cell[146347, 2854, 89, 2, 968, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[146473, 2861, 3812, 60, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[150310, 2925, 5563, 89, 550, "Subsubtitle"],
Cell[155876, 3016, 408, 6, 354, "Subsubsection"],
Cell[156287, 3024, 1711, 33, 442, "Subsubsection"],
Cell[158001, 3059, 3294, 48, 261, "Subsubsection"],
Cell[161298, 3109, 5525, 91, 692, "Subsubtitle"],
Cell[166826, 3202, 821, 11, 354, "Subsubsection"],
Cell[167650, 3215, 7809, 128, 1079, "Code"],
Cell[175462, 3345, 89, 2, 354, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[175588, 3352, 4796, 79, 550, "Subsubtitle"],
Cell[180387, 3433, 1000, 13, 5200, "Subsubsection"],
Cell[181390, 3448, 1433, 29, 5539, "Subsubsection"],
Cell[182826, 3479, 3483, 52, 3830, "Subsubsection"],
Cell[186312, 3533, 4859, 78, 8926, "Subsubtitle"],
Cell[191174, 3613, 771, 11, 5200, "Subsubsection"],
Cell[191948, 3626, 6680, 109, 15903, "Code"],
Cell[198631, 3737, 89, 2, 5200, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[198757, 3744, 4372, 74, 550, "Subsubtitle"],
Cell[CellGroupData[{
Cell[203154, 3822, 4304, 75, 8096, "Subsubtitle"],
Cell[CellGroupData[{
Cell[207483, 3901, 4286, 75, 8096, "Subsubtitle"],
Cell[CellGroupData[{
Cell[211794, 3980, 5547, 94, 8096, "Subsubtitle"],
Cell[217344, 4076, 408, 6, 5200, "Subsubsection"],
Cell[217755, 4084, 1645, 32, 6964, "Subsubsection"],
Cell[219403, 4118, 2114, 51, 9777, "Subsubsection"],
Cell[221520, 4171, 3463, 54, 5797, "Subsubsection"],
Cell[224986, 4227, 5440, 92, 12052, "Subsubtitle"],
Cell[230429, 4321, 821, 11, 5200, "Subsubsection"],
Cell[231253, 4334, 7728, 132, 15903, "Code"],
Cell[238984, 4468, 89, 2, 5200, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[239110, 4475, 5609, 95, 8096, "Subsubtitle"],
Cell[244722, 4572, 408, 6, 5200, "Subsubsection"],
Cell[245133, 4580, 1645, 32, 6964, "Subsubsection"],
Cell[246781, 4614, 2114, 51, 9777, "Subsubsection"],
Cell[248898, 4667, 3466, 54, 5797, "Subsubsection"],
Cell[252367, 4723, 5409, 94, 12864, "Subsubtitle"],
Cell[257779, 4819, 821, 11, 5200, "Subsubsection"],
Cell[258603, 4832, 7996, 139, 15903, "Code"],
Cell[266602, 4973, 89, 2, 5200, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[266740, 4981, 4340, 76, 8096, "Subsubtitle"],
Cell[CellGroupData[{
Cell[271105, 5061, 5640, 95, 8096, "Subsubtitle"],
Cell[276748, 5158, 408, 6, 5200, "Subsubsection"],
Cell[277159, 5166, 1695, 33, 6964, "Subsubsection"],
Cell[278857, 5201, 2262, 53, 9777, "Subsubsection"],
Cell[281122, 5256, 3511, 55, 5797, "Subsubsection"],
Cell[284636, 5313, 5439, 92, 12052, "Subsubtitle"],
Cell[290078, 5407, 821, 11, 5200, "Subsubsection"],
Cell[290902, 5420, 7788, 133, 15903, "Code"],
Cell[298693, 5555, 89, 2, 5200, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[298819, 5562, 5666, 95, 8096, "Subsubtitle"],
Cell[304488, 5659, 408, 6, 5200, "Subsubsection"],
Cell[304899, 5667, 1695, 33, 6964, "Subsubsection"],
Cell[306597, 5702, 2262, 53, 9777, "Subsubsection"],
Cell[308862, 5757, 3518, 55, 2473792, "Subsubsection"],
Cell[312383, 5814, 5460, 95, 5490711, "Subsubtitle"],
Cell[317846, 5911, 821, 11, 2218859, "Subsubsection"],
Cell[318670, 5924, 8028, 139, 6788083, "Code"],
Cell[326701, 6065, 89, 2, 5200, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[326851, 6074, 4296, 73, 8096, "Subsubtitle"],
Cell[CellGroupData[{
Cell[331172, 6151, 6080, 100, 8096, "Subsubtitle"],
Cell[337255, 6253, 955, 13, 5200, "Subsubsection"],
Cell[338213, 6268, 1284, 28, 6348, "Subsubsection"],
Cell[339500, 6298, 4158, 64, 3830, "Subsubsection"],
Cell[343661, 6364, 3008, 59, 9749, "Subsubtitle"],
Cell[346672, 6425, 771, 11, 5200, "Subsubsection"],
Cell[347446, 6438, 3893, 78, 15903, "Code"],
Cell[351342, 6518, 89, 2, 5200, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[351468, 6525, 6029, 99, 8096, "Subsubtitle"],
Cell[357500, 6626, 955, 13, 5200, "Subsubsection"],
Cell[358458, 6641, 1284, 28, 6348, "Subsubsection"],
Cell[359745, 6671, 4157, 64, 3830, "Subsubsection"],
Cell[363905, 6737, 3255, 66, 10190, "Subsubtitle"],
Cell[367163, 6805, 771, 11, 5200, "Subsubsection"],
Cell[367937, 6818, 4127, 86, 15903, "Code"],
Cell[372067, 6906, 89, 2, 5200, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[372229, 6916, 2523, 49, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[374777, 6969, 5001, 87, 8096, "Subsubtitle"],
Cell[379781, 7058, 204, 3, 2218859, "Subsubsection"],
Cell[379988, 7063, 1737, 43, 2473792, "Subsubsection"],
Cell[381728, 7108, 1529, 31, 2473792, "Subsubsection"],
Cell[383260, 7141, 2292, 47, 3809831, "Subsubtitle"],
Cell[385555, 7190, 771, 11, 2218859, "Subsubsection"],
Cell[386329, 7203, 3159, 73, 6788083, "Code"],
Cell[389491, 7278, 3193, 71, 7467268, "Code"],
Cell[392687, 7351, 89, 2, 2218859, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[392813, 7358, 4242, 80, 8096, "Subsubtitle"],
Cell[397058, 7440, 534, 7, 5200, "Subsubsection"],
Cell[397595, 7449, 2446, 52, 6348, "Subsubsection"],
Cell[400044, 7503, 2218, 42, 5797, "Subsubsection"],
Cell[402265, 7547, 2338, 52, 9749, "Subsubtitle"],
Cell[404606, 7601, 771, 11, 5200, "Subsubsection"],
Cell[405380, 7614, 3657, 81, 15903, "Code"],
Cell[409040, 7697, 89, 2, 5200, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[409178, 7705, 6108, 105, 53, "Subsubtitle"],
Cell[415289, 7812, 1271, 17, 35, "Subsubsection"],
Cell[416563, 7831, 2475, 52, 38, "Subsubsection"],
Cell[419041, 7885, 3217, 53, 35, "Subsubsection"],
Cell[422261, 7940, 3843, 68, 59, "Subsubtitle"],
Cell[426107, 8010, 3912, 72, 60, "Subsubtitle"],
Cell[430022, 8084, 771, 11, 35, "Subsubsection"],
Cell[430796, 8097, 5567, 99, 104, "Code"],
Cell[436366, 8198, 5875, 111, 114, "Code"],
Cell[442244, 8311, 89, 2, 35, "Subsubsection"]
}, Open  ]],
Cell[CellGroupData[{
Cell[442370, 8318, 5402, 91, 53, "Subsubtitle"],
Cell[447775, 8411, 204, 3, 150352, "Subsubsection"],
Cell[447982, 8416, 1932, 46, 187972, "Subsubsection"],
Cell[449917, 8464, 1461, 27, 110737, "Subsubsection"],
Cell[451381, 8493, 2426, 54, 282752, "Subsubtitle"],
Cell[453810, 8549, 771, 11, 150352, "Subsubsection"],
Cell[454584, 8562, 3277, 77, 459965, "Code"],
Cell[457864, 8641, 89, 2, 150352, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[457990, 8648, 5577, 96, 53, "Subsubtitle"],
Cell[463570, 8746, 204, 3, 2218859, "Subsubsection"],
Cell[463777, 8751, 2102, 54, 2709291, "Subsubsection"],
Cell[465882, 8807, 1539, 31, 2218859, "Subsubsection"],
Cell[467424, 8840, 2542, 55, 4348962, "Subsubtitle"],
Cell[469969, 8897, 771, 11, 2218859, "Subsubsection"],
Cell[470743, 8910, 3204, 78, 6788083, "Code"],
Cell[473950, 8990, 89, 2, 2218859, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[474076, 8997, 3724, 67, 53, "Subsubtitle"],
Cell[477803, 9066, 255, 4, 67, "Subsubsection"],
Cell[478061, 9072, 1180, 30, 76, "Subsubsection"],
Cell[479244, 9104, 1355, 33, 90, "Subsubsection"],
Cell[480602, 9139, 1803, 33, 67, "Subsubsection"],
Cell[482408, 9174, 1384, 36, 114, "Subsubtitle"],
Cell[483795, 9212, 771, 11, 67, "Subsubsection"],
Cell[484569, 9225, 2273, 54, 202, "Code"],
Cell[486845, 9281, 2498, 60, 222, "Code"],
Cell[489346, 9343, 89, 2, 67, "Subsubsection"]
}, Closed]]
}
]
*)

(* End of internal cache information *)